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tffJXmiftiX^K^tm-tK 

UA,/itl2:\ UXA^-FT'A^T 
12: #, t^ht>L^(DX : r-9t 



tz 791>>\-**D*A,tr>tt 
T *>!> 2: / U tftfj !><7) T-TSn-f C 




►►► 3-p 






►►► ^.--x 



i\, lHA x v. v tW9 : * < *l)<7)T'®ffllfc* 



lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 


-fr>'?Jl> V X h 




iBASICCDLUhfcJfl&UfcOrx &XVO*, 


«£«NMIG:lrr<gUU( 1 MfTOfMW* 


igUr^§)o fc^LAY3tC0*»CtS*UOT, 


*»iS<fco<t:^aiASt50ra«to 


10 


'"M9207M. BAS", A 


20 


< MIDI SAMPLE "PROVA" > 


30 


'< By Y. KITAGAMI 1992(C) > 


40 


_MUSIC(1, 0, 1, 1, 1, 1, 1, 1) 


50 


* 


60 


' — INZ— 


70 


* 


80 ( 


:lear 10000 


90 [ 


)EFSTR A-H, T 


100 


SOUND 7, 36: SOUND 6, 12: POKE &HFA 


2C, 


20 


1 10 


T="T120 


120 


A0="V13L 160666 


130 


C0="V13L16O5@35 


140 


F0="V15L16O2@12Q6 


150 


G0 = "V3@A15 Y23, 90 


160 


H0="L4O4S0M3000 


170 


1 


180 


'---MEL--- 


190 


• 


200 


A1=" A&A2. &A8. B&B2. &B8. 


210 


A2 = ">C&C2. &C8. D&D2. &D8. < 


220 


A3=" A&A2. &A8. B&B2. &B8. 


230 


A4 = ">E&E2. &E8. A&A2. &A8. < 


240 


A5=" R16 R4 AR16ER16 G4 AR16E 


G& ( 


32. &G8. 


250 


A6=" R16 R4 AR16ER16 G4 AR16E 


B& f 


34. G4. E8. 


260 


A7 = " R16 R4 AR16ER16 G8. A R4 




U AR16ER16 G8. A R8. 


270 


A8 = "<A&A2>D4E8. A& A2. &A8. 


280 


'A9=A5 


290 


' AA=A6 


300 


*AB=A7 


310 


AC="<A&A2>D4G8. E& E2. &E8. 


320 


AD = " R16R4GR8. AR8. BR8A& A8ER16 


R2 


_23DD-<BAA-> LI 6":'*** [5] 


330 


AE=" E&E2. G8. G R2A8. AR8. 


340 


AF = " E&E2. G8. G R4R1 6B>D-DE8. E<R 


mi iiiiiiiu ilium iiiiiiiiiiiiiiiii 



IIIIIIIIIIIIIIH 


8. 






740 


• 


350 






750 


'-—DRUM—- 


360 


'— CORD— 




760 


• 


370 






770 


G1="MB!C!H16 H 1 6H 1 6H 1 6H 1 6 S!H16 


380 


C1=">C&C2. C8. 


D&D2. D8. < 


HI 6MB ! HI 6H 16 MB !CH1 6H1 6H1 6H 1 6 S!H16 


390 


C2=">C&C2. C8. 


<B&B2. B8. 


H16H16 


400 


'C3=C1 




780 


G2="MB!C!H16 H 1 6H 1 6H 1 6H 1 6 S!H16 


410 


C4 = ">E&E2. E8. 


E&E2. E8. < 


H16MBIH16H16 MB ! HI 6H1 6S ! HI 6H1 6 S! HI 


420 


D1=" A&A2. A8. 


B&B2. B8. 


6SIH16H16 


430 


D2 = " A&A2. A8. 


G&G2. G8. 


790 


G2=G1+G2 


440 


'D3=D1 




800 


G1=G1+G1 


450 


D4=">D&D2. D8. 


D-&D-2. D-8. < 


810 


• 


460 


E1=" G&G2. G8. 


A&A2. A8. 


820 


'---SNARE—- 


470 


E2=" G&G2. G8. 


D&D2. D8. 


830 


* 


480 


*E3=E1 




840 


H1="R16 R4C4R4C8. 


490 


'E4=E1 




850 


H2="R16 R4CR8C8C16C8 


500 


C5 = ">D&D2. D8. 


D-&D-2. D-8. < 


860 


H2=H1+H2 


510 


C6=" B&B2. B8. 


>D-&D-2. D-8. < 


870 


H1=H1+H1 


520 


'C7=C5 




880 


' 


530 


'C8=C6 




890 


PLAY#2, T, T, T, T, T, T, T, T 


540 


D5 = " B&B2. B8. 


A&A2. A8. 


900 


PLAY#2, A0, A0, C0, C0, C0, F0, G0. H0 


550 


D6=" G&G2. G8. 


A&A2. A8. 


910 


' 2- 9 


560 


'D7=D5 




920 


PLAY#2, A1, A1, CI, D1, E1, F1, G1, HI 


570 


'D8=D6 




930 


PLAY#2, A2, A2, C2, D2, E2, F2, G1, HI 


580 


E5 = " G&G2. G8. 


E&E2. E8. 


940 


PLAY#2, A3, A3, CI, D1, El, F3, G1, HI 


590 


E6=" E&E2. E8. 


E&E2. E8. 


950 


PLAY#2, A4, A4, C4, D4, E4, F4, G2, H2 


600 


'E7=E5 




960 


' 10-17 


610 


'E8=E6 




970 


PLAY#2, A1, A1. CI, D1, El, F1, G1. HI 


620 






980 


PLAY#2, A2, A2, C2, D2, E2, F2, G1, HI 


630 


'---BASS — 




990 


PLAY#2, A3, A3, CI, D1, El, F3, G1, HI 


640 






1000 


PLAY#2, A4, A4, C4, D4, E4, F4, G2, H2 


650 


F1="A& A4R8ER16GAR16AR8. E& E4R8 


1010 


'18-25 n 


ER16EER16ER8. 




1020 


PLAY#2, A5, A5, CI, D1, El, F5, G1, HI 


660 


F2= G& G4R8>DR16GDR16DR8. <G& G4 


1030 


PLAY#2, A6, A6, C2, D2, E2, F2, G1, HI 


R8GR16GGR16GR8. 




1040 


PLAY#2, A7, A7, CI, D1, El, F3, G1, HI 


670 


F3= A& A4R8ER16GAR16AR8. A& A4R8 


1050 


PLAY#2, A8, A8, C4, D4, E4, F4, G2, H2 


ER16GAR16AR8. 




1060 


'26-33 \2 


680 


F4= G& G4R8>DR16GDR16DR8. <A& A4 


1070 


PLAY#2, A5, A5, CI, D1, El, F5, G1, HI 


R8>C 


-R16E<AR16E4 




1080 


PLAY#2, A6, A6, C2, D2, E2, F2, G1, HI 


690 


F5 = "A& A4R8ER16GAR16AR8. E& E4R8 


1090 


PLAY#2, A7, A7, CI, D1, El, F3, G1, HI 


ER16EER16ER8. 




1100 


PLAY#2, AC, AC, C4, D4, E4, F8, G2, H2 


700 


'F6=F2 




1 110 


'34- 


710 


'F7=F3 




1 120 


PLAY#2, AD, AD, C5, D5, E5, F9, G1, HI 


720 


F8 = "G& G4R8>DR16GDR16DR8. <A& A4 


1 130 


PLAY#2, AE, AE, C6, D6, E6, F9, G1, HI 


R8>D 


-R16E<AR16E4 




1 140 


PLAY#2, AD, AD, C5, D5, E5, F9, G1, HI 


730 


F9="G& G4R8>DR16GDR16<G4A& A4R8 


1150 


PLAY#2, AF, AF, C6, D6, E6, F9, G2, H2 


>D-R16E<AR16E4 




1 160 


GOTO 1110 
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PROVA 



by Y.KITAGAMI(C)1991 



J=120 




9 H 7 p r 7 ' =P 




fff -g 



w± 



w± 



SP 



S=? 



(5— 



v : J j jfj^> JjJ 7 j?J^> jU 7 ^[^ f r H y ^-^]j.^JJ ypy[^y | 



* •/• 






^ 



^ 



^ 



* y p r >• p 



*\ 




?J ^f|p|| y^^j 



p 



"^j[. "JU T fr ^Irj 7 b py^]j.~JJ 



*1F 



> > =» o > >- > o 



^ 



^ 



^ 



* >pr *• r^ ff 



j i > te J773i;>* ! =^j 



i^^ 



ggp i * 




A 



a 



j^jj 



<s^ 



si 



3=3 



: j 7 w^T] 



m 



W 



m 



±=G# 



m 



^P 



j3g^a 



s 



^ 



^ 



^ 



i 






3=p 



Repeat & Fade Out 
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USIC WORKSHOP 

DanteeW-A*ftori\«A*\ ^SMuSICA^¥(cAtLfcAfcS^6 
&5tz *ZT»lil4MuSICACDSffla*«S*aiiUrU*a5o 



MuSICAitt? 

musical i-ftr/n^AE^ 

BGMftfr* 3 £ ***?# $**?- 

)\stz msxt-'-y ^.^jiffiyfy-^- 

^,RPG=l>7. |>7^->a>7-^ 
r Dante2jlUKii£ftT£>U. ^ 

•fm n psg, sgcc$j% 

#gfF<7Xr-A(7)BGM£ LTf£^ 

•basioaplayx t titansi CJiSi 

|ffa->, t'7 7-K #JI> 

- n S T"Z (7) 3 — ^— TSMfti 
>£^>£ffl r ? - *> ? £ t ^ ^ ^ $S 

Dante2£m^T#]tf)TMuSICA££n 

MuSICA(iftl^lzJ:oT{ife(7) 
T 3* < iRffltfe^A £„ mMMPSe 

^bW^f^ofcffllix MuSICAT'fF-? 

fcr'— ? & 3 >/*— hLtz ho>t£ 

-?kMuSICAT'fF-?TU3) H 
b-t+S-r** hx-rV ?— 7J*t<7) 

BASIC£©»U 

BASI07)MMLTtJBASIC=l V> K 



mi mmm 
















L) + [w) 


±^20^77.^7 p— ;u 


(CTR 


(F2j T^T-hSfctft 




(CTRL) + (Z) 


"p\£0tf*^n-/l; 


[F3] BGMXSy? 




(CTRL) + (E) 


a-yjwswili* 


(F4) BGM^mO 




(CTRL) + (Y) 


*— VJWtSHIi 


(JF5) BGMil^ 




(CTRL) + (0) 


*— y/Wr'\H5#A 


[INS J #A/±* tOOSx 




(CTRL) + (P) 


*-yjMfl»v<-7> 


[DELj *-VJWttWB» 










[BSj *— VJWHMI 








•f-f^^-H 


(ESC] 3Y>K*-n- 








(ESC) t-^XMtV^-^ISS 


L 


r-(L) m^a^Jvyy 








1) load MUSIC T^hf-^©n-K 




(A) i5H*i£ G«3aft)- 


— {c] 


Pfcf- 


2) load VOICE Wg^'-^OP-K 




(N) x**S8Mb 




69 


A-?' 


3) save MUSIC x^Xh^-^CDIz-? 




(d) x-fTtfHE-K^ 




[T] 


*^h 


4) save VOICE m&T-$<Dte-7 




4v) tfiif-f^-t- 


-K'v 






5) save BGM BGM77-Y ;b©1z-^ 


•teif'f^- : B-K 










(ESC) =lV>KX-x- 














(3t£ 


— 7Lft^ 


-> Ufc!- 


-%mm 








(s) te©Ai 


(AS 


tSU^ 


- ASftS^) 




(m) ^e-k^m 


(FM.PSG.SCCOIf 


\znt>%) 




L(Q) f+XKlf 


<^— 


E— K'XK-S 




(SPACE) 


n«+ 


g) i«- 











MuSICAT1JT'# t£\.\ T'BZZt 

te$w&iz-otz\ 

/UB BASIC<7)^t^^te7^S«D 

<r > *7*— ? Ci BASI07)PLAY5; 



El 1 tZ*S <t -5 HMuSICA[i r 7- 
7°P(7)ct-5^x + 7. hl-rV ?- 
TfM><7rC\ BASIOnibTftUifc' 

A % fcT , -f 7.^^E- KJ-iWti. BGM 



*SC*ttf CC«*T# S(7)fc* 
? b (Z -tz — 7" L tz^^T-'— 9Wr 
+ ^ h 7 T-f ;WK^j:<7)T\ BASIC 

MuSICA(i7 i +^ hif-f ?— T* 
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iff * X h £# b t£ I 1 fttffc b 

-ytztft\ BASICS mi W&Bk 

<7>JH#£>fc«>S8B7> (S'— *•>* 
7*—*) £\ ttoS9.5»fc-3G:# 

A y-J-^Xf-^ 
MuSICA££^Jilf/z#]ao<ZHli® 

•y ^t*— 5» G J: oT^Bu?rOtt/c 

v—7- >*5*-£ (iyfeSi^b, 
FMCOt^^JU K 2, 3, ••• 
•\ 9, PSG(7)5 L -f>^;UK 2 N 

3 x scc<7)^ * >*;k £ t N i )il# 
xtiwz. tz y s moKW'ht^ 

fc* l ^ > > h mtm%$ nz<r)T\ 

ZZlzW.^T ! hfflb%l\ 

£tz, FMt^>*JK7)*FMR=" 
tZ*)X&$m<fi?- J r>*>l'-C\ Z 
Zlz^-OUfr^tz^s FMC0 7 
3-Y>*}WMlZfiiM~ZB %\.\ 

V its m^&L^m^L^o 
t\ 1 x-(i i mm?* (cc7)if 

#tt***CS*>. *A1/4" fcbfcf 
A1 £ l">-) ^JUCO/n ;?— >£• 4 HK# 

B -7'n-y^T-'-? 

7tll^b18ffig(7) *=" fr^7' 
P V 7 f—7 1 L Tf^ffl Plt^Co 



32 f4xh(i:U§ 



PM1 =T,A0,A1 

T.B0.A1, Al/2, 

t 



FM2 

FM3 = 

FM4 = 

FM5 = 

FM6 = 

FMR =T,G0.Gl/4 * 

FM7 = 

FM8 = 

FM9 = 

PSG] = 

PSG2- 

PSG3= 

SCC1 = 

SCC2= 

SCC3= 

SCC4 

SCC5 



,AS Ai 2 } &%tfj£l\<z>tt : ?'V\,%mttZ> 



Ufcf-MsllS 






FUlz—tryTsf—^ 



PSGy-^ryXzr-^> 



Myb-m&ez'ttm&z 



;*** yg^r# *** 

T=120 

A0=V15 04 §24 L8 
BOV12 03 816 L8 
G0=V15 VH10 

A1=CDEF CDEF CDEF CDEF 
A2=EFGA EFGA 

G1 =CBH8I18SH8I18 BH8H8SH8H8 
BI18118SU8H8 BH8H8SH8H8 



ynv<?z7—5> 



::::cM0>rtgc&&&MiyiL & 

AtlT U < A,*5tf if, ^ U 73 tt £ 

oTfcffi^o 7-<MBASICT*l^ 
X^SliBO [Z[2]3lZ&£>MML£:£ 
mtZtztftZo U-trxn^^Mt 
2:SC^£T*£»k£oTl*2>BASICt 

A1=_ 

©MML £#^Tl^< 
A1=CDEF_ 

A1=CDEF 
A1=CDEF 



A2=GAB>C_ 

C ^ 4^ U T'Xf-f p> —(7) 3 t° 

Tlx(tS<7)T\ tt^b-f^f-^U 

BASIWDWJftMML 

? T % MuSICAT*tefflpTti#3-7 

fc 'J /Co 

T\ZZT« BASIC COM ML tit 

© [Rn] ftfa 
BASICS (iiit \Vrffrnt # (Z fe 
*l" n^>K«rt Settle 



BASICS t 

A1= *L16 C8.R16 DR16DR16* 

MuSICATIS 

A1= L16 C8.R DR DR 

o £ i) MuSICA^ «b *L1 6 rrrr" 
t *R4* AfclltfMfcTfcJ:**: 

(D [@n] ^fe#^7)^t 

Ittfx 0~99<7)|SHtT«($x.5«J: 
<7)Olxfc^fe(i N BASIC(7)ti^-^f5l 

tz, wt&>**)i?i'A4r&tim 

izi£i z t fcT*#ncuj: -9 iz^-7 
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L*rLPSGliO~29£T;SCCU 



(D [0, [)] Hf-K*>, *7 

Z ftlS BASICS *&" {Z&fc£ fc 
<T)tS.A,tztft\ MuSICA(^iira-ti^ 
IIASIt fc<7)T*fcx 0#{f&ZV£ 

IK. 
(06 



HfKfrtt 



/n 



An~Gn 



Rn 



Ln 



Tn 



On 



Qn 



Vn 



< 



> 



+, # 



Yr, d 



( 



@n 



Sn 



Zn 



Pn 



Mn 



Wn 



Bn 



Sn 



Mn 



Cn 



Hn 



VBn 



VSn 



VMn 



VCn 



VHn 



Vn 



niMOSUm 



^*JWDE«0DCtt3 



nftmttCDmtKD^ft? 



nftmtt(Dm-£(Dibfi 



wmmmt&nftmwiztz 



^>tKII^ 



xw-ymm 



jm\>zi\&n&%M 



ftv=L-Amm 



1 *£*— TFfcfS 



i Ttfz-yti-fz 



¥W±tf3 



^WTtfS 



Mix ♦WfCMItr*1.5«C: , r« 



\sV7sS— r i:f-^ d €S£ikD 



b#-h tT> 



b#-h tt? 



ni©i 



■MW?& 



v-x^^ym-m 



T*=L-ymm 



e^-sco^s 



*JU^^>MWb« 



I iPziv>K(7)7.tf-K 



n4HW9<D«fc£W#«iBSr5 



n^H©/aK7A^M 



n ##&©;**:? Kt?Am£fE£ 



nft^ft(D$>l±W*%3i 



nttmn<D i yyjv\sm*%± 



n^CA-f/l^l^S 



yaK^Atoi 



X*7 K^Am©^] 



^Ag©g] 



^>AVU^©^« 



A<A*yhWD1 



^■^rCD'JXAA— MDffl 



• liMuSICA^fflC7)Z]V> K *liMuSICAT'ffi!S$nfc3V> K 



BASICtfffc 

A1= "C4&C16&C1 

MuSICATIi 

A1=(C4C16)C1 

$ h tz musical «b & z A,^fK 




0-255 



1-64 



1-64 



-64 



32-255 



1 



0-15 



FM 0-99 
PSG 0-29 
SCC 0-49 



OFF 
ON 1 



0-255 



0-255 



0-255 



0-255 



-64 



-64 



-64 



-64 



-64 



-64 



0-15 



0-15 



0-15 



0-15 



0-15 



0-15 



m 

A1=L32(EE-DD-)C1 

(D [Sn] -fr^T-OftS 

z tut FMgm<7>mz'mjL%w@& 

ttWmiz *5" HLTL3a\ 
3eLfcJ|#tt, fSi7'-f^-0 

A1=@24 S1 C16 R4 ; ON 

SO C16 R4 R1 ; OFF 

(D [Zn] r^-zL—>mM 

Z tilt ~255c7)|gilTl^T 
3 255i::f£:£T$ £ $#_k£<S J: 

^^llbTZ^lZct^T, 3 — 7 
>#>**ttJltt?lCf^y-htf 5 3 1 

fe"C#«o 

(19U) 
3— 7 7xJI (n=10~60) 
A1=@16 CDEF 
B1=@16 Z30 CDEF 
-» \°— * 7'>3> (n=1 OOtu^) 
A1=@8 CDEF 

B1=@8 Z100 CDEF 
©[Mn] \f.~f=7— K Tji/U?.* 

1 ~255Tf££T SoW*;* < 

© [In] t'77-hCO;S$ 
^IS-StelUS: -255 am 

7lzft3 LFO* fcf— KC-^T 

li % ^oi:M37>F TiS^f 5 



it'7 7-h 
A1=@24 M5 160 C1 
•f<Kt7*7-h 
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A1=@24 M6 10 (C4I65)C2. 
• 2?-*>*M%r>tzZ\ — yX®) 

*rWbftS) 

A1=@16 05 CI 

B1=@16 05 M20 120 C1 

A1=@57 M1 I255 L16CCCC2 

(D [Pn] #)V9 y > h mmm 
^tz^cn^mcnm^uifz t 

£ ~255<7)$gHTigrrS„ C 
H*T* fc # 7 £#*. ffitf'J * $ 

- XfZ & 5 A tz' If t\ ?(Dfr£> y 

/1-vJU^y> K7)?< $>7*£ffl(Z 

£f$9 J: »J fcU'tf- h *ffi-afc« 

(15«) 
A1=@24 M1 P100 C4>C4<C4 



d)[Wn] 



&fr&&iz t Mm 



mm* 

CtUi BASI07) *@Wn" 3?> 

PfcB i:«# *ts &0>t\ *@* 

® [VBn], [VSn], [VMn], 
[VCn], [VHn] 

"J Xitfaurfc (z^m<7)f£:££ 

BASIC(-fc(t-f>,7 7 ^-IZ>h(7)* ! " 

j6*<c t N * s t> y tz % y x a/ \°— h (7) 

y^ 7'^-tz>h-5"[ti^f(zfe, 

So 

(» 

Z^7©13- 
G1=V15 

BH4 

SH16 VS12 S16 VS8 S16 VS6 S16 

V15 

BH4 

SH16 VS12 S16 VS8 S16 VS6 S16 



•ftilA^BASIC^U 7 h oT-f5j^= 

tllZft-otz*AT'b s ^izft^tz 
'J7 Knftmtf£^Xi^^Wr& 
tf$\.\ Z7^-otzZ£*mt% 
tztblz &J*7.m<0V 7 h Jfi: t'X' 

T$.oT, fci:x.10%HiF<7>ffeAA < 
#ofcV7 K'fcy>7t>7f 
#S<£ tC^'tTU^ fCT' 
MuSICA<7) U 7. h t)#ip-fbT'# ft 

& ii* < mxfe^^y^f<s $A 

mc7)ui^y^(z7j:s«-r/z 

gtfKbor&A/fc? 

IUgffci: lifipjiizw^'C L i ? 

mi" tl^Z£tz&Z a fflj^ 
i:^m 7T-fA-0)4&flH a SE 

fP5&(f(Z#5%&fc*>S<7rC\ 
S T'MuSICA^-f^^ T # fc^$£#> 

7^7^7£:Sf§C"tt*~7 

A 7'n7^f-^ 

7" p -y 7 x- * I J T- £ S fit J Jg 
<T S Jb/ry^fl^fc^i^,, 
BASIClZ^grf .g, £ =5 fe#^T, 2 

2:££gW: *o* CLTfc<z^ 
lzLJ;-9o fLT->-^>7f- 

*<7)&H££«>Tfc<o 

(0IJ) 



E0=V10 04 L1 @16 Z20 
F0=V15 02 L16 @12 
G0=V15 VH2 VC13 



SCC4= (y-^r/77-?) 
SCC5= 

; * * * va+Tj *** 
T =T120 

A0=V15 05 L16 @24 
B0=V14 05 L16 @24 Z30 
C0=V10 04 L1 @16 
D0=V10 04 L1 @16 Z10 



timk<nmzm&<7)%m*W^ 

xfc<o o*y % ^s^<-;^#t v - 

-ft ^fe^li^o [z L T tS < 
<7>£?„ JSMft^fct^fcs &S'\°? 
->TFM0yg&fy^*.$tlZt, 

?<Ds*?—>$:PSG 3 <?SCCTi£i Z 
£ ¥X- £ & l vlfrg-tf* S frh tz 

£CLT£< ^v—t^t.^'-^ 

7^U«ti^^.^lv75T-*@, #, $" 
$ri£lt^^tz?>l 

(00 
(laiWb) 

F0=V15 02 L1 ©12 
G0=V15 VH2 VC13 

;***7h>->a7FM*** 
@1=@1 V15 05 
@5=@5 VI 3 04 

; * * « ?)->-> a ^ PSG * * * 
#2=@2 VI 03 
#3=@3 V9 03 

; * * * %>i/3? SCC * * * 
$5=@5 V10 04 
$8=@8 V12 03 

1 ?Z^ g tM- +• >^^!tSlJT\ 
2 5:^ g *</ n°^ - >#-§-/-Co ^ v'^» 

t^ofc, ^jy<7)i^i^'fX(zL^d: 

7.^AnTM^r<'rs(7)fel^l^o 
(» 

; * * * /\°^ — > 1 * * * 
A1=L4 

CDEFCDEF CDEF CDEF 
B1=L4 R16 

CDEFCDEF CDEFCDEF8. 
C1=G G G G 
D1=E E E E 
E1=C C C C 
F1=L8 

cccccccc cccccccc 
cccccccc cccccccc 



G1 =BC8H8SH8H8 BH8H8SH8H8 

BH8H8SH8H8 BH8H8SH8H8 

BH8H8SH8H8 BH8H8SH8H8 

BH8H8SH8H8 BH8H8SH8H8 

; * * * /\°^» — 1/2 * * * 

A2=L4 

DEFG DEFG DEFG DEFG 
B2=L4 R16 

DEFG DEFG DEFG DEFG8. 



z i LTfcwf y x'a/\- hi^ 

9^r>7 t —ff.t, PSG^SCCT'^O^ 

Sf^x.So 

B \s— j t>7. : t—9 

7p *j 7 r- 9 zmmitt s - 
tiz^-ox, ->-^->7,r-9it 
&ToMff>& ^(zi-^#y^rs 
itttzo '<*—>&&* ztstz. 

^-^^-^Tin< LJ;9o 

(15U) 
FM1 =T,A0,A1,A2/2, @1,A3 
FM2 =T r B0,B1,B2/2, @1,B3 
FM3 =T,C0,C1,C2/2, @5,C3 
FM4 =T,D0,D1,D2/2, @5,D3 
FM5 =T,E0,E1,E2/2, @5,E3 
FM6 =T,F0,F1 ,F2/2, F3 
FMR =T,G0,G1,G1,G2, G3 

ztifch t" z tft& $nx^z> 

t'^TCtz^^S/cS^o 

^:Uft?rfFS^#ti, z\*>v 
^Xfi7^LTl>( tl^ 
1zhi 
®m*fr h tzim± L /z U t £ 

(» 

FM1 =A4;T,A0,A1,A2/2, @1,A3,A4 
FM2 =B4;T,B0,B1,B2/2, @1,B3,B4 
A4i: B4^^T^S t #,?M 
Lfcv— 'T>7.t ; '— ^(i^^> h 
(ZLT^l^T, ^^L/clv\°-h 

^«)i:?ioT < S J; o izfSo 

sj:yawaw.^o 

FM1 =; T,A0,A1,A2/2, @1,A3 
FM2 =1,60,61,82/2, @1,83 
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^zmtKtzztwx-zZo i 
^e - ? - £ -tf- -S (Dt < —mtz'h n 

A1=GAB>CDE X 
A1=GAB>CDE< O 

Sfewf-f v Hi, /\7>- 

7c*lt^(7)T'ffiWf fc«l>*6* 
£H L fc £ # tt -b - :/*:6*lfc l* 

«fc "5 13 L <fc -5 o FM^S^PSGOT^ 

W0RKSH0PWoT#fc<7)T\ 4" 

UK jscazoi ^■tertfe U 7j£i# 
WLJ:-^ »ftt^&M4(z 

&%>±iteb(T)tzo mmtti? 

**ift[zf$^£-i-g:£^>b*r 

l ^7z fcf£ L SCC(7)if^ J^V 

m$titz^X\ ze>s -4 Xtift,s\,* 

(Zf^lNTl^o 

at^ U tz»*JSA< L -**»« L 
T^$(7)T\ l^L^fcl^Uy^ 

PSG<7)^e> £ [W] U J: -5 IZTfv^^ 



l&fefrhsV\'X : JlL£X1&g%zi> 



z;wj«£KM<(7)T\ s 

•frfrU\, f CTftttMSC:^* 

iq^^ct^lzr^^^U^T^fc 

t>s ?&*■£■%&/)%*<»&? im 
mz%m&%7LXfrtz m 5 )„ 

©7i-Xf^ ;* h — is a >75"5t 

[215-1(7) j: 1 izifm&bfrmhz 

%X, jft^<7)o^ri%-MSi*-* 
Zl£T\ S*y£tZfrW£^£7Jqx. 

T^lz-y-V/^tHSJ: -5 tttf&'C? 
©fcf— ?x-f * h— */3>^t 

HI 5 - 2 <7)J; -3 IC S $^(7)Ul£ 
^fcCLTS***, h±i£zz 

^z(i^ox<n^iv 

TLIKtT, M7j(7)f^£*# 
i-5^^-5 fe<7)(|2|5-3)o 1*3 

Tf* L TJW= Ao tz b CO fcff* -5 o 
®JH^^^775t 

||$ o fc^/;:'3<7)Ji]$$j£o& 
IfX feglZ?i>*r>tt*b<7> 

< &-5lIftlZ&-l>(7)T\ tK>2fc 

lvC4^ ( fc-5tCfS<DA < 3% 

<7^ym%uz.uzr>(Dm^m 
»*fis&. M«>M2:« Jiaift 

(D^A— v>^' 



jg)t# l±?r v ^ f % 77 >£ A<A «. o 
±.!B(7)73>i?rm^-a-^i±^ C t 
X\ *«SClJ ifilzx-F^ -y hT"^ 

5 ^ 1; * tti ^>^o sects szf^it 

>7°U >^JSl^^(7)Ht>y^-(fz 
T-#-5(7)T s tt£4tt£f&flPt$ 



tz 
•5zi:A<Ai.oZ:n(iPSGfc|S|i;4 



3 4 m*m& 

1. -y-^rva 



3. 9E^X 




4. /ui>:*8 



n 



J 5 »^xf>fyhJS 

1. jT-XT47,v-iiiynt 5. at^n^^s: 




2. z-Ofii^-^ytt 




4. ®3fi»g«73a; 



FVv 
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3 (A 



ID CD M m ft 



LSfo fFa p Q (i BASIC, MuSICA<7) 



■tfAM MuSICA(7)if £ti& 

IzimWftt LTiti 
BOOOP3*3iUblf*fo 



•*: =P107 " 24 

-^- X'J-I7i§BLUt^b 



56 



:3©D>xXh^ 



y— A$i— y\yC8BRMusicA»iiB iscc 



2MH8 7K7BGM 



FMl 

FM2 
FM3 

FM4 



FM7 
FM8 
FM9 



[ Here comes the BOSS! ) 
=T, A0, X/6, V, Y/6. W, X/6. V. Y/6. W. U, R. Q 
=T. B0, X/6, V. Y/6. W, X/6. V. Y/6, W, U, R. P 
=T. C0, X/6. V. Y/6. W, X/6. V. Y/6. W. U. R. 
=T, D0, Dl. D2/2. D3, D4 

FM5 =T, E0, Dl, D2/2. D3, E4 

FM6 =T. F0. Dl, D2/2, D3. F4 

FMR = 

=T. H0. S/4, N/4, S/4. N/4, H3. H4. H3. H5 
=T. 10, S/4, N/4, S/4, N/4. H3, H4. H3. H5 
=T, J0. Jl . A/2, B. C, J0. A/4, C, D/4, C 
J0. Jl . A/2. B, C. J0, A/4. C, D/4. C 
J2. J3, J2. A/2. E, D/2. E 
J2. J3, J2, F/4. G/4. H/4 

PSG1=T, K0/4, K1. K2. Kl, K3 

PSG2= 

PSG3= 

SCC1 =T, N0. S/4. N/4, S/4, N/4, H3. H4, H3, H5 

SCC2=T, 00, 01 , D2/2, 02. R, Q 

SCC3=T, P0. 01 . D2/2, 02. R. 

SCC4= 

SCC 5= 

T=T200L8 

A0=V15 

B0=V12Z20R8 

C0=V1 1Z40R4 

X=814S106FGA-B-A-G 

V=FGA-B->C<B-A-B-A-GA-F 

Y=EF+GAGF+ 

W=EF+GABAGAGF+GF+ 

11=8606 

R=CC4F4 (G) G2GGA-4. B-4. FF4B-4> (C) C2<FGA- 

4. B-4. >CC4F4 (G) G2GGA-4. B-4. FF4B-4> 

0= (CI. )C16. . 

P=(C1)C4. . . 

0= (C1C4)C16. . 

D0=V14 

E0=V12Z20R8I40M5 

F0=V1 1Z40R4I60M6 

D1=S 5S106 

D2=C<F>C<LF. >C<F>C<F2. (B16>C2) L8C. <F>C<F 

>LC. <F>C<F>C2R<F2. L8BEBLE. BEBE2. (A+16B2L 

8) B. EBELB. EBEB2R> (D+l 6E2) L8E. 

D3=8605GG4B-4> (C) C2CDE-4. D4. CC4E-4 (F) F2 

CDE-4. F4. GG4B-4> (C) C2CDE-4. 04. CC4E-4 

D4 = (Fl. ) F 1 6. . 

E4= (Fl) F4. . . 

F4= (F1F4) F16. . 

H0=833S0O2V14Q3 

I0=824S1O2V14Z20 

N0=827O1V7 

S=F>FE-FCF<B->FCFE-F< 

N=E>EDE<B>E<A>E<B>EDE< 



H3=>C>C<CGB->C<C>C<C>C<C>C«A->A-<A->B-< 

B->B-F>F<F>CE-F<F>F<F>F<F>F< 

H4=<A->A-<A->B-<B->B-< 

H5=F>F<F>F<F>F16. . 

J0=V1 502631 DDRDDR(830O5F64P1 4) <C. . . P 

0283 1 R4DRDDRDDR (830O5F64P 1 4) <C. . . PR202 
§3 1 L8DDRDDR (830O5F64P 1 4) <C. . . P02R483 1 DR 
J1=DDRDDR 

A=8880(G64P9)<C16. . P 
B=O(C64P10) <C. . . P 
C=03(F64P13) <C. . . P 
D=O(C64P10) <C16. . P 

J2=83102DD( 88704A64PI4) <C16. . P83102DD( 
88704A64P14) <C16. . P§3102D ( 88704A64P14) < 
C16. . P (>A64P14) <C. . . P (>A64P14) <C. . . P 
J3=83 1 02DD ( 88704A64P 1 4) <C1 6. . P§3 1 02DD ( 
88704A64PI4) <C16. . P 
E=03 (F64P13) <C16. . P • 
F=0(888F + 64P9)<C32. P 
G=0 (C+64P10) <C32. P 
H=03(F64P13)<C32. P 
K0=80V1 1 L8CCCCCC89C80CCCCC CCCCCC 

89C80CCCC88V12C §0V1 1CCCCCC§9C 

80CCCCC CCCCC88C80CCCCC88V I 2C 
K 1 =@0V1 1CC@9C@0CC@9C@0C@9CC4C@0C CC89C80 
CC§9C @0CC@9C@0CC@9C§0C@9CC4C80C 
K2=CCCCC88V12C 
K3= L 1 6CCCCCCCCCCCC32. 
O0=V15 

P0=V12Z1R6I1M6 
01=84405 
02=8440 



mm&? 


r* *3 












r y 










<FM VOICE No. 31 > 










MD 0-0-0 


1-15- 9 


4 


6-0 


0-off 


off 


off 


CR 


0-15- 4 


2 


7-0 


0-off 


off 


off 


<FM VOICE 


No. 30> 












MD 0-6-0 


1- 15- 15 


12- 


6-0 


0-off 


off 


off 


CR 


0- 15- 5 


15 


15-0 


0-off 


off 


off 


<FM VOICE 


No. 88> 












MD 0-0-1 


4- 8-11 


15- 


0-1 


0-off 


off 


off 


CR 1 


2- 8- 5 


15- 


15- 1 


0-off 


off 


off 


<FM VOICE 


No. 87> 












MD 4-5-0 


2- 9- 8 


15- 


15- 1 


0-off 


off 


off 


CR 


1-15- 4 


15- 


15-1 


0-off 


off 


off 



<PSG VOICE No. 0> 



32- 16- 



4- off- on 



<PSG VOICE No. 9> 

32- 12- 0- 16-off-on -8 

<PSG VOICE No. 8> 

32- 10- 0- 6- off -on -0 

<PSG VOICE No. 8> 

32- 10- 0- 6-off -on -0 

<PSG VOICE No. 8> 

32- 10- 0- 6-off -on -0 

<PSG VOICE No. 8> 

32- 10- 0- 6-off-on -0 

<SCC VOICE No. 27> 

32- 12- 0- 12 

1F-3F-5F-6F-5F-3F- IF- 

E0-C0-A0-90-A0-C0-E0- F 

1F-3F- 1F-F8-E0-C0-E0-2F 

5F- 6F- 5F- 2F- A0- 90- A0- D0 

<SCC VOICE No. 44> 

26- 2- 12- 16 



'30-28-20- 18- 10- 8- 
■ 0- 0- 0- 0- 0- 0- 10 
'30-28-20- 18- 10- 8- 



7t"US>'^"JUpBP^ MuSICASJB ^SCC 






FMl =T, A0. Y. A2. Y. A3, A/2, A5. X. A7. X. A/4, W 

FM2 =T, B0, Y. A2. Y. A3. A/2. A5. X. A7. X. A/ 4. W 

FM3 =T. Z. C2. Z, C3. C/2. C5. C6, C7, C6. C/4. C8 

FM4 =T. D0. E. D3/4. D4. D3/4, D/4, D5/4. D6, D3/ 

4. D7, D8/8. Dl/8. D/8. D3/4. D/4. Dl/4, D9. Dl/8 

, D/8, D3/4. D/4, Dl/7, D, D3/4, D/4. D5/3. DA, D3 

/4, D/4. D5/3, DB. D3/4, D/4. D5/3, DA, DC/4. D3/ 

4. DD/8. D3/4. DE. EA/2, DF. D/8. DG. D3/4, DC/4, 

D/4, DD/4. D3/4. D/4. D5/3. DA, DC/4. D3/4. DD/8 

. D3/4, D/4, D5/3, DA, D3/4, D/4, D5/3, DB. D3/4, 

D/4, D5/3. DA, DC/4, D3/4, DD/8, E, D3/4. D4. E. D 

3/4, D4. E, D3/4, D4. E. D3/4, D4. D3/4, D/4. DH 

FM5 =T. E0. El . E2. El , E3, E4, E5/2, E6, E7/2. E8 

. E9. EA/2, E0, EB. R/7, A0. E8. E5/4, EC. R/99 

FM6 =T, F0. El. E2. El. E3. F4. E5/2, E6. E7/2. E8 

. F9. EA/2. FB. EB. R/7. E0, E8. E5/4. FC 

FMR =S/5. G0. G, Gl /5, G2. G3. G4/7. G5. G3. G4/7 

, G6. G3. G4/7. G7, G3, G4/7. G8, G3. G4/7. G7, G3. 

G4. G5. G9. GA/7. GB. GC/7. GD, G3. G4/2. G8, Gl/2 

. GE. G3. G4/7, G5. G3. G4/7. G6, G3. G4/7. G7, G3, 

G4/7. G6. G3. G4/7. G7, G. Gl /5, G2. G. Gl /5. G2. G 

, GI/5. G2, G. Gl/5. G2. G3. G4, G5, G3. G8. GF 

FM7 = 

FM8 = 

FM9 = 

PSGl=S/5. K0, L. Kl/5. K2. K3. K/14. K5. K3. K/13 

. K6. K3, K/14. K7, K3, K/14, K8, K3, K/14. K7, K3. 

K/2. K5. K9. KA/7. KB. KC/13. KD. K3, K/4. K8. Kl/ 

2. KE. K3, K/14, K5, K3, K/13, K6. K3. K/14. K7, K3 

. K/13, K6, K3. K/14, K7, L. Kl/5. K2. L, Kl/5. K2, 

L. Kl/5. K2. L, Kl/5. K2. K3, K/2, K5. K3. K, KF, R 

PSG2 = 

PSG3= 

SCC1 =S/5. R, N, D3/4, D4, D3/4. D/4, D5/4, D6, D3 

/4, D7, D8/8. Dl/8, D/8, D3/4, D/4. Dl/4. D9. Dl/ 

8. D/8, D3/4. D/4, Dl/7, D. D3/4, D/4. D5/3, DA. D 

3/4, D/4. D5/3. DB, D3/4, D/4. D5/3, DA. DC/4, D3 

/4. DD/8. D3/4. NE, R/7. 0, D/8. DG, D3/4, DC/4. D 

/A. DD/4. D3/4. D/4. D5/3, DA. DC/4. D3/4. DD/8, 

D3/4. D/4. D5/3. DA. D3/4. D/4. D5/3, DB, D3/4. D 

/4. D5/3. DA. DC/4. D3/4. DD/8. N. D3/4. D4. N, D3 

/4. D4, N. D3/4, D4. N, D3/4. D4. D3/4. D/4. DH 

SCC2=S/5, 00. R. P. R/ 1 0, 02/2, R/ 1 5, Q/2. 03 

SCC3=S/5, P0, R, P. R/10, 02/2, R/15. 0/2. 03 

SCC 4= 

SCC5 = 

T = T1 50841 SI 06L8 

S=TI50R1R1R1R1T200 

R=R1R1R1R1 

A0=V14 

B0=V12Z20R16 

Y=A2RE4EE4DC4CDED2RD4DG1C2R<A4>CD2R<B> 

A2 = CDC<BA2. Dl> 

A3=CDE2RCDED1C2R<A4>CD2R<B>CDL1ERT20081 

A=0L8AA>C<A>ECAE>C<A>ECAE>C<A>C<AFAFCFC< 

B>DGDE<B>EG+877M1 

A5=C<BA4. >E4ED4. <B4P9R> (CI 6<) A. P(G2I99M4 

1G4IF4 (E2I99) E2I>C<BA4. >E4ED4. < (B. P5M1)C 

. PL2G4 (A. I60M5AI99M4) A. I 84805L 1M5 (E) E (D 

)DCDED(E) E(D)DCD(E)E 

X=L 1 FGE2. D4CFG (E) EFGE2. D4C<AAAG+877 

A7=L8810»C<BA4. >EE<A>D4. <B4. >F4E2L1RRR< 

RRRR82L8B>EG+EL1EEEEF+F+G+G+084106LE2AED 

2BAG2. E8D8C1E2AED2BAG1R1 E2R8AE8D2BAG2. A 

8B8>C2. <EL2D<A>DL6CDCL 1 ERRRR05L8878G2REG 

>ED4. A4GED (C2. I 59M5C 1 ) C4 1 <A4. L 6> (C8) C<04 

B>CQL<B. >D. L8<BA (G2. I 59G1 ) G4IEFG2. G+B>DF 
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EDC<B>C4<B>C4DC<B>C 1< L 1 6A>CFC<A>CFC<A>C 

FC<A>CFC<A>CF+C<A>CF+C<A>CF+C<A>CF+C<B>D 

GD<B>DGD<B>DGD<B>DGD<B>DG+D<B>OG+D (GP6M 1 

>L8B. <) CRP F2L6FEFLGD. AG8G2. FE1 L2D<A>DL6 

CDC (El I59M5) El IS4805 

W=C<BA4. >E4ED4. < (B. P5M1) C. PG4>E-DC4. G4GF 

4. (D. P5)<C. PB-4> (El I59M5) El R1 1 

Z= V 1 3C2RC4CC4<A2. B2RB4B>D 1 <A2RF4A 

C2=B2R4ABAGE2. <B1» 

C3=B2R4AB>C2R<AB>C<B I A2RF4AB2RGAB>L 1 CR 

C=T200V13OL8EEAE>C<A>ECAE>C<A>ECAEAFCFC< 

A>C<AGB>D<BBG+B>E§77M1< 

C5=AGF4. >C4C<B4. G4P9R (Al 6) F. P (E2I99M4) E4 

ID4 (C2I99)C2IAGF4. >C4C<B4. (G. P6MI)C. PL2D 

4(E. I60M5EI99M4)E. I@4805L1 (C) C< (B) BAB>C< 

B> (0 C< (B) BAB> (C) CC< 

C6=B>C2. <B4A>C<B>C<B>C<B>C2. <B4ADDEE@77 

C7=@10L8>AGF4. >CC<FB4. G4. >D4C2L1 RRRRRRRL 

8@2<G+B>E<B> L 1 CCCCDDEEQS4 1 06LC2EC<B2>GFE 

2. C8<B8A1 >C2EC<B2>GFE 1 Rl C2R8EC8<B2>GFE2. 

F8G8A2. CL2<ADAL6AAAL1G+RRRR05L8 678E2RCE 

>C<B4. >F4EC<BA1 I59M5B-I IF4. L6 (A8) A04GAQL 

G. B. L8GFEID1CDE2. EG+B>DC<BAG+A4G+A4BAG+A 

1L1 @6V14CCDE2@78>V13(D16P6M1>18B. <) CRP 

C2L6CCCLD<B. >FD8E2. DC1 L2<ADAL6AAA (LI G+I5 

9M5)G+I@4805C< 

C8=AGF4. >C4C<B4. (G. P6M1) C. PD4>C<B-A-4. >E 

-4E-D4. <(B-. P6)C. PF4> (CI I59M5) C1R1 I 

D0=O3S9Z20I40M5V12L1AFGEDEAEAFGEDEDEDED 

RIT200V14@6A. . G4FL2GG+Q3@33L8Z0 
E=V 1 1 AAAV 1 2AAAV 1 3AAAV I 4AAAV I 5AAGG 
D1=AA 
D=GG 
D3=FF 

D4=GGGGG+G+EE 
D5=CC 

D6=<AAAAAA>CE 
D7=GGGGGD<BG> 
D8=<AA> 

D9=EEG+G+BBG+G+ 
DA=<BBAAAAGG>CE 
DB=DDEE>EE<BG+4E 
DC=F+F+ 
DD=EE 

DE=GGGGGGG+G+@84Q 
NE=GGGGGGG+G+ 

DF=89I40M5V12O3L1FG>C<A'FG>CEFGC<AF+FEI®3 
3L8Q4V11EEEV12EEEV13EEEV14EEEV15EEFF 
DG=CCCCCCCC<BBBBBBBBAAAAAAAAGGGFGGGF 

F F F F F F F FGGGGGGGG>CCCCCCCC<GGGGGGGG 
>CCCCCCCC<BBBBBBBBAAAAAAAAAAAAGG>CE 
DH=<A-A-A-4>A-E-C<A-B-4>B-<B-4>B-FDC1 
E0=V12 

F0=V10Z50R8I40M6 

E1=@10O3LA>EAE<F>CFC<G>DGD<EB>E<BDA>D< 
E2=AEB>G<BA>CEC<@9E1 

E3=AEB>G<BDA>D<AEB>E<BDA>D<AEB>E<B§9D1 
E4=R1 T200V14§16 
F4=R2. . T200V12@16R8Z20 
E5=05IE1. . G4CIL2DE66 
E6 = OL1AB>C2. D4E<AB> (C) C@ 805L8M5I 
E7 = EAB>(C2I79)C4RKB4AE4CD4. (GH79)G2RIL 
04C. F. QA2DL6Q5GB>0DL8C<B (A2. 179) Al I 
E8 = @ 806C<BA4. >E4ED4. <B4. A4G2. F4E1>C<BA4 
. >E4ED4. <B4. A4G 1 G+ 1 >C<BLA. >EE8D. <B. AG2. F 
E1D2. CD2L6CDCL1 (EI79M5)E@6 
E9=RRI@ 9V12O1Z20 
F9=RRI®84V1 1Z50 

EA=L803AR4» (CP7M1 ) <CPB4AER4 (I99M4A4P9M1 
) <CPAB>C4. E4. GE>CKD4. F+4. A4> (I99M4D4P9M 
1 ) <CPA4RF+A (G+4P7) BPB4. (G+P9) CPE1 
FB=V9Z0 

EB = @10S1Q2O3LF>CFC<G>DFDCG>C«GA>EA<GF>C 
FC<G>DFDCG>C<DEG+BG+F>CFC<G>DGD<CG>C«BA 
>E<G>E<F+>DF+D<F>CFC<L1§9QEL806 
EC=0L1AB>C D (GI60M5)GRI 
FC=0LIAB>C2. . V13<B->(CI60M5)CRI 
G0=V0Y22. 72Y23. 84Y24, 1 1 2V1 581 Rl Bl BC2BC8 

Y22, 96Y24, 74BM1 6BM1 6BM1 6BM1 6BM1 6BM1 6 
G=Y22. 72Y24. 1 12BCH4Y22, 96Y24, 74BM8 

Y22. 72B4B8Y22, 96BM8Y22, 72B8Y22. 96BM8 

Y22. 72B8Y22, 96BM8Y22, 72B8 
Gl =Y22. 96BM1 6BM1 6Y22. 72B8B8 
G2=Y22, 96BM1 6BM1 6BM8BM8BM1 6BM1 6BM1 6BM1 6 
G3=V15Y22. 72Y24. 1 1 2BCH4Y22. 96Y24, 74BM4 
G4 = Y22. 72B8B8Y22. 96BM4Y22, 72B4Y22. 96BM4 



G5=Y22, 72B8Y22, 96BM8BM1 6BM1 6BM8 

G6=Y22, 72B8Y22. 96BM8BM8BM8 

G7 = BM1 6BM1 6Y22. 72B8Y22. 96BM8BM8 

G8=Y22. 72B8B8Y22, 96BM8Y22. 72B8 

G9=Y22, 72Y24, 1 1 2CH1 Rl Bl R 1 Bl R1B1B2B8H8H4 

GA= V 1 4VH 1 3BH8H8C8BH8C8BC8V 1 5CH8V 1 4C8 

GB=BH8H8C8V15CH8V14B8CH8V15CH8CH8 

GC=V 1 2VC1 1 VB 1 4BC4C4SH4C4BC4BC4SH4C4 

GD=V12CH2R8Y22. 96Y24. 74BM8V1 3BM8V1 4BM8 

GE=Y22. 96BM8BM8 

GF=BM8Y22. 72B8Y22, 96BM8Y22, 72B8Y22. 96 

BM16BM16Y22. 72B8Y22. 96BM8BM1 6BM1 6 

Y22, 72Y24, 1 12BSCH1 
K0=L1RRR. R8@9V1 1 L I 6CCCCCC 
L=@l 4V 1 2C4@1 0L8CS8V1 0C4g0C@ 1 0V 1 2C@0C 

®10C@0Cei0C@0C 
K 1 =@1 0V 1 2C1 6CI 6@0C@8C 
K2=@9C1 6C1 6CCL 1 6V1 261 0CCV13CC 
K3=@I4VI3C4®10L8V1 1CS0V10C 
K=@0V10CC@10V1 1C80V10C 
K5=@0VI0C@10VI 1CL16CV12CL8V13C 
K6=@0V 1 0CC6 1 0V 1 1 C@8C4@1 0CV 1 2CV 1 3C 
K7=@10V1 1L16CC@0L8C§10V12CV13C 
K8= 80V 1 0CC8 1 0V 1 1 C@0V 1 0C 
K9=@17V12L1 (CCCC CC) C. @8V1 0L8RCC4 
KA=R2. C4 

KB=R4. C4V9CV10C(C) 
KC=L2C@8V 10(C) 

KD=CC§ 1 7V7CL8R® 1 0V9CV1 0CV 1 1 C 
KE=@10V12CC 
KF=@10V12C§0C§10C@0C@10L16CC@0C8 

§10C8VI3CC§17C1 
N=@27V302L8AAAAV4AAAAV5AAAAV6AAGG 
0=L 1 RRRL8V3EEEEV4EEEE V5EEEEV6EEFF 
O0=V9 
P0=V5Z1R12 

P=L161 102(A16P3M1>»GG)G+ I59M5AR 

02= ISI 3L80A>CEA<A>CEA<A>CEA<A>CEACEG>C<C 
EG>C<CEG>C<CEG>C<DF+A>D<DF+A>D<DF+A>D<DF 
+A>D<EG+B>E<EG+B>E<EG+B>E<EG+B>E< 
0=L1RR. ... 61 102 (A16P3M1>»GGG)G+PI59M5A 
03=R1@34IL803A->CE-A->CE-A->C«B->DFB- 

L16<B->DFB->DFB->D« (El I49M5) E1R1 I 



i»BB7 y 


















<FM VOICE No. 41 > 


















MD 38-0-0- 14- 15- 


3- 


3- 


2 








on 


on 


on 


CR 0- 1-.9- 


5- 


2- 


4 








off 


off 


off 


<FM VOICE No. 1> 


















MD 39- 7-0- 2- 9- 


8- 


!• 


5 








off 


off 


on 


CR 1 • 1 • 9 • 


8- 


1- 


6 








off 


off 


on 


<FM VOICE No. 77> 


















MD 8- 2- 1 • 1 • 8- 


2- 


15- 


6 








off 


off 


Off 


CR 1- 4-15- 


!• 


1- 


6 








off 


off 


off 


<FM VOICE No. 78> 


















MD 2-2- 1 • 0- 8- 


1 • 


1- 








z 


off 


off 


off 


CR 1- 7- 15- 


1- 


2- 


6 








off 


off 


off 


<FM VOICE No. 84> 


















MD 23-4-0- 10-11- 


6- 


2- 


3 








off 


off 


on 


CR 0- I • 15- 


4- 


2- 


2 


1 





off 


off 


off 


<FM VOICE No. 8> 


















MD 20-7-0- 2- 7- 


7- 


1" 


1 








off 


off 


off 


CR 1 • 1-8- 


1- 


2- 


6 








off 


off 


off 


<PSG VOICE No. 9> 


















32-12- 0-16-off- 


or-! 


•8 














<PSG VOICE No. 14> 
















32- 8- 0- 16-off • 


on 


•3 














<PSG VOICE No. 10 


> 
















32- 10- 0- 16-off- 


on 


•8 














<PSG VOICE No. 8> 


















32-10- 0- 6-off- 


on 


•0 














<PSG VOICE No. 0> 


















32-16- 0-14-off- 


on 


•0 














<PSG VOICE No. 8> 


















32- 10- 0- 6-off- 


on 


■0 














<PSG VOICE No. 8> 


















32-10- 0- 6-off- 


on 


•0 














<PSG VOICE No. 17 


> 
















32- 6- 0- 0-off- 


on 


•4 














<PSG VOICE No. 8> 


















32- 10- 0- 6-off- 


on 


•0 














<PSG VOICE No. 8> 


















32- 10- 0- 6-off- 


on 


•0 














<SCC VOICE No. 27 


> 

















32- 12 

1F-3F 

E0-C0 

1F-3F 

5F-6F 

<SCC 

30- 

7F-6F 

0-EF 
80- 9F 

F- IF 
<SCC 
32- 14 

0- C 
E8-F0 

0- C 
E8-F0 

<scc 

32- 14 
0- 19 

7F-7D 



5F-6F-5F-3F- 
A0-90-A0-C0- 
1F-F8-E0-C0- 
5F-2F-A0-90- 

VOICE No. 1 1> 
15- 

5F-4F-3F-2F- 
DF-CF-BF-AF- 
AF-BF-CF-DF- 
2F-3F-4F-5F- 

VOICE No. 13> 
0-32 

17- IE- 20- IE- 
F8- 0- 8- 10- 
17- 1E-20- IE- 
F8- 0- 8- 10- 

VOICE No. 34> 
11-6 

31-47-5A-6A- 
75- 6A- 5A-47- 
A0-B0-C0-D0- 
20- 30- 40-50- 



IF- 
E0- F 

E0-2F 



IF- F 
9F-8F 
EF- 
6F-7F 



7- C 
8-20 

17- C 
8-20 



75- 7D 
31- 19 
E0-F0 
60-70 



n^-s 



Mf— AHil— isyOw?^ musicawe 



SJ'y^'f ^Jj^lft FIRESCRAMBLE 

byB^ial , 

t. o t.w%v>imh % & o =t 5 r-r tec 



************************************** 



GRADIUS 

III 



Fire Scramble 
(C) KONAMI BY S. T 



************************************ 
FMl =T, A10. Al, A14, AX, A13, A2. Al I. A3. A12. A 
4. Al 1. A3, A5, Al 1, A6. Al 2, A7. All, A8, A9, A13, 
AA, A14. AB, A13, AC, A14, AD 

FM2 =T. B 1 0, A 1 , E 1 4, AX, B 1 6, A2. B 1 1 , A3, B 1 2, A 
4. Bl 1, A3. A5. Bl 1 . A6, B12. A7. Bl 1. A8, B9. B13. 
BA, B14. CB. B13, BC. B14, CD 
FM3 =T, C10. CI. C12, CX, C10. Al. AX, CI 1. C3. CI 
2. A4, CI 1. C3. C5. CI 1. C6. C12. A7. C11. C8. A9, C 
13. CA, C14.CB, CI 3, CC. CI 4. CD 
FM4 =T, D 1 0. C 1 . D 1 2. CX, D 1 6. A 1 , AX. D 1 1 . C3, D 1 
2. A4. Dl 1, C3. C5. Dl 1, C6, D12. A7. D1 1. C8. A9. D 
13. CA, D14, CB. D13. CC. D14. DD 
FM5 =T, E10, A1.C12, CX. A13. A2, Al 1. A3. A12, A 
4, Al 1, A3. A5. Al 1, A6. Al 2, A7, Al 1, A8, A9. El 3, 
AA. El 4. AB, El 5, AC. El 4. ED 
FM6 =T. F10. Fl, F2. F1. F3, F4. F5, F6 
FMR =T, G10, G1/3. G2. Gl/2. G3, G1/3. G2. Gl/2. 
G4, G5, G6, G5. G7, G8 
FM7 = 
FM8 = 
FM9 = 

PSG1=T, P10. Al, AX. A2, PI 1. H3, PI 2. HA 
PSG2 = T, P20. Al . AX, A2, P21 . H3, P22, I A 
PSG3 = T. P30, Jl/3, J2. Jl/2. J3, J1/3. J2. J 1 /2. 
. J4, J5. J6. J5. J7, J8 
SCC1 = 
SCC 2 = 
SCC3 = 
SCC4 = 
SCC5= 
T=T165 

A10=@53O6L12V13Z10M4S1 
B 1 = @53O6L1 2V 1 2R8M4S 1 
CI 0=@53O5L 1 2V 1 3Z1 0M4S 1 
D10=@53O5L12V12RM4S1 
E10=@53O6L12V13M4S1 
F10=@12O3L12V14O5 



100 



G10 = VB1 5 VS13 Y22, 90 Y23. 80 Y24, 80VC10 

PI0=O5L12@5V 9Z10M4 

P20=O5L12@5V 7R M4 

P30=O7L12 

Zl 0=R1 

Al l=§55O4V13S0Q6 

B1 l=@55O4V12Z0S0Q6 

A12=§6606V15Q6 

B12=@66O6Z50V14S1Q8 

CI 1=@55O3V13ZI0S0Q6 

Dl l=@55O3V12Z0S0Q6 

C12=@66O5V15S0Q3 

D12=§66O5Z80V14S1Q8 

A13=@5306L12V14M4S1 

B16=@53O6L12V13M4S1Z0 

D16=@53O5U2VI2M4S1Z0 

E 1 3=@5306L 1 2V 1 3M4S 1 RZ0 

A14=@606L12V14M4SI 

EI4=@6O6L12V13M4S1Z0 

EI5=@53O6L12V13M4S1Z0 

B 1 3=@4805L 1 2V 1 5Z 1 0M4S I 

B14=@66O5L12V15Z10M4S1 

C13=@48O5L12V15Z10M4S1 

D13=@48O5L12V!3M4S1Z0 

C14=@66O6L12V15Z10M4S1 

D14=§6606L12V13M4Q6S1 

PI 1=@6O5L12V10 

P21=@605L12V 7 

P12=@7O5L12V10 

P22=@705L12V 8 

A1=E-4. D16E-16C2E-4. Dl 6E-1 6C4CE-G A-4. Gl 

6A-16F2A-2>C<B-A-F4 G4. Fl 6G1 6E-4<B->E-FG 

2A-4B-4A-4FGA-B-4GA-B- 

AX=>(D-2. ) I80D-4I0< 

A2=C2 (G2I80G4) GI0FE- (F4) FE-DD-2A-2> (D-2. 

) I80D-4I0 <E-2 (B-2I80) B-2I0A-4G4F4DE-FG4 

E-FG>(D-2. ) I80D-4I0 

A3=C2D2C2 

A4=>R12C-6C-4< 

A5=<G>CF<A>D-G- 

A6=D-2D2D-2 

A7=>R12C6C4< 

A8=D-2D2 

A9=L4E-EFG- 

B9=L4E-EFG-8 

AA=L12(C2) I80C4I0GFE(A-2) I80A-4I0FGA- (F2 

. I80)F4I0 

AB= (G2. ) I80G4I0 

AC= (A- 2) I80A-4I0A-GF (B-2. 180) B-4I0> (C-2) 

I80C-4I0C-<B-A->(D-2. 180)0-410 

AD=> (E-2. 1.80) E-4I0A-A-6A-6A-A-A-A-A-A-A- 

ED=> (E-2. 180) E-4I0A-A-6A-6A-A-A-A-A-A- 

BA=L1GA-F 

BC=L1A-B->C-D- 

C1= (G2I60)G4I0CE-F(G2. 160) G4I0 (A- 2 1 60) A- 

4I0D-FB-> (D-2. 160) D-4I0< (B-2I60) B-4I0E-G 

B-G2>C4D-4<F2G2 

CX=@67>D-D-6D-6D-D-D-6D-6D-< 

C3=G2A-2G2 

C5 = R2 

C6=A-2A2A-2 

C8=A-2A2 

CA=L1CD<B- 

CB=L12>C4A-B-GC4A-B-G< 

CC=L1D-E-F-G- 

CD=>LI2E-E-6E-6E-E-E-6E-6E- A-A-6A-6A-A- 

A-6A-6A- 

DD=>L 1 2E-E-6E-6E-E-E-6E-6E- A-A-6A-6A-A- 

A-6A-6 

H3=A-FC>FC<F>D-<G-D->G-D-<G->C<FC>FC<FR2 

A-FC>FC<F>D-<G-D->^3-D-<G->C<FC>FC<FR2> D 

-<G-D->G-D-<G->D<FD>GD<G>D-<G-D->G-D-<G- 

R2 >D-<G-D->G-D-<G->D<FD>GD<G>E-<A-E->E< 

AE>F<B-F>G-C-<G- 

HA=L12(C2) I80C4I0GFE(A-2) I80A-4I0FGA- (F2 

. 180) F4I0 (G2. ) I80G4I0 (A-2) I80A-4I0A-GF ( 

B-2. I80)B-4I0>(C-2) I80C-4I0C-<B-A-> (D-2. 

180) D-4I0 (E-2. 180) E-4I0A-A-6A-6A-A-A-A-A 

-A-A- 

IA=L12(C2) I80C4I0GFE(A-2) I80A-4I0FGA- (F2 

. 180) F4I0 (G2. ) I80G4I0 (A-2) I80A-4I0A-GF ( 

B-2. 180) B-4I0> (C-2) I80C-4I0C-<B-A-> (D-2. 

180) D-4I0 (E-2. 180) E-4I0A-A-6A-6A-A-A-A-A 

-A- 

Fl =C6CCCCC6CCCCC6CCCCC6CCCC D-6D-D-D-D-D 

-6D-D-D-D-D-6D-D-D-D-D-6D-D-D-D- E-6E-E- 



E-E-E-6E-E-E-E-E-6E-E-E-E-E-6E-E-E-E-D-6 

D-D-D-D-D-6D-D-D-D- 

F2=D-6D-D-D-6D-6D-D-D-6 

F3=D-6D-D-6D-D-D-D-D-D-6< 

F4=C->C-<C-GF>C-<D->D-<D-A-G->D-<C->C-<C 

-GF>C-«B->B-<B->A-G->C-< C->C-<C-GF>C-< 

D->D-<D-A-G->D-<C->C-<C-GF>C-«G>CF<A>D- 

G- 

F5=D->D-<D-A-G->D-<D>D<DAG>D<D->D-<D-A-G 

->D-<C->C-<C-GF>C-<D->D-<D-A-G->D- <D>D< 

DAG>D< E->C-<B- E>C-<B F>FC-< G->G-D- 

F6=C6CCCCC6CCCC D-6D-D-D-D-D-6D-D-D-D- < 

B-6B-B-B-B-B-6B-B-B-B- >C<CGA-B-G>C<CGA- 

B-G D-6D-D-D-D-D-6D-D-D-D- E-6E-E-E-E-E- 

6E-E-E-E- F-6F-F-F-F-F-6F-F-F-F- G-6G-G- 

G-G-G-6G-G-G-G- A-6A-A-A-6A-6A-A-A-6A-6A 

-A-A-6A-A-A-A-A-A- 

G 1 =B6B 1 2SM6B 1 2B6B 1 2SM6B 1 2 

G2=B6B1 2SM6BI 2B6B1 2SM1 2SM1 2SM1 2 

G3=BC6B1 2SM1 2SM1 2SM1 2BC6BI 2SM1 2SM1 2SM1 2 

SMI 2B6SM1 2SM1 2SM1 2SM1 286SM1 2SM1 2SMI 2 

G4=BC6B1 2SM1 2SM1 2SM1 2BC6B1 2SM1 2SM1 2SM1 2 

SMI 2SMB6SM1 2SM1 2SM1 2SM1 2 SMI 2SMI 2SM! 2SM2 

4SM24SMI2 

G5=BC6B1 2SM4B1 2R1 2B1 2SM! 2SMI 2SM1 2 B6B1 2S 

M4B 1 2SMI 2B 1 2SM4 BC6B 1 2SM4B 1 2R 1 2B 1 2SM 1 2SM 

12SM12 

G6=B6B1 2SM4SM1 2SM1 2SM1 2SM1 2SM1 2SM1 2 

G7=SM1 2SM1 2SM1 2SM1 2SM1 2SM1 2SM1 2SM1 2SM1 2S 

M12SM12SM12 

G8=B6B1 2SM1 2SM1 2SM1 2B6B1 2SM24SM24SM1 2SM1 

2 B6B12SM12B6B6B12SM12B6 B6B1 2SM1 2SM1 2SM 

1 2B6B1 2SM24SM24SM1 2SM1 2 SMI 2SM1 2SM1 2SM24 

SM24SM1 2SM1 2SM1 2SM1 2SM1 2SM24SM24SM1 2SM1 2 

B6B12SM12SM12SM12B6B12SM24SM24SM12SM12 
B6BI 2SM1 2B6B6B1 2SM1 2B6 SM6SM1 2SM1 2SM1 2SM 
1 2SM24SM24SM 1 2SM 1 2SM 1 2SM 1 2SM 1 2 SM24SM24S 
Ml 2SMI 2SM1 2SM1 2SM1 2SM24SM24SMI 2SM1 2SM1 2S 
M12SM12 SM12B12B12SM12B12SMI2SM12BI2B12S 
Ml 2B1 2SM1 2 SM24SM24SM1 2SM1 2SM24SM24SM1 2S 
Ml 2 SMI2SM12SMI2SM12SM12SM12 
J1=V1 1§1D6D@3E@1DD@1D6D@3E@1DD 
J2=VI 1§1D6D@3E@1DD@1D6D63V1 1DDD 
J3=V12@0E6RVI l§3EEEV12@0E6RVI 1S3EEE ER6§ 
1 0E@3@1 0E§1 2ES3ER6EEE 

J4=V12@0E6RVI 1@3EEEVI2@0E6RV1 lS3Eei0E@12 
E @3E@12E6@3EEEEEE§I0E§1 1E24E24S12E 
J5=V12@0E6R@3V1 1 E4R6REEE R4E4RERE4 V12§0 
E6R@3V1 1E4R6REEE 
J6=R4E4@1 0E@1 1 E@l 2E63EEE 
J7=V11EEEEEEEEEEEE 

J8=@3V1 1R6REEER6RE24E24EE R6RER6R6RER6 R 
6REEER6RE24E24EE E§1 0ES11 ES3E24E24EE ESI 
0E@1 IE63E24E24EE @3VI 1 R6REEER6RE24E24EE 
R6RER6R6RER6 E6EEEEE24E24EEEEE E24E24EEE 
EEE24E24EEEEE ER6EREER6ERE 610E24E24EE©! 
1E24E24EE@12EEE@3EEE 



<FM VOICE No. 53> 

MD 15- 7-0- 1 • 12- 12- 2- 2 

CR 0- 2- 10- 1 - 12- 2 

.<FM VOICE No. 55> 

MD 2-5-0- 1-10- 0- 0- 

CR 0- 1-10- 0- 2-13 

<FM VOICE No. 66> 

MD 5-6-0- 0- 6- 4- 1- 

CR 0-1- 7- 3- 2- 2 

<FM VOICE No. 67> 

MD 5-6-0- 0- 8- 2- 2- 2 

CR 0- 0- 7- 1- 2- 

<PSG VOICE No. 5> 

32- 4- 13- 8-on -off- 17 

<PSG VOICE No. 6> 

32- 8- 9- 17- on -off- 17 

<PSG VOICE No. 7> 

32- 4- 14- 8-on -off- 17 

<PSG VOICE No. I> 

32- 16- 9- 13-on • on • 

<PSG VOICE No. 3> 

32- 12- 9- 13-off -on • 7 

<PSG VOICE No. 0> 

32- 10- 1- 13-off -on ■ 15 

<PSG VOICE No. 10> 



off-off-off 
off-off-off 



off-off-off 
off-off-off 



on -off-off 
off-off-off 



on -off-off 
off-off-off 



32- 12- 0- 12-off -on • 1 1 

<PSG VOICE No. 12> 

32- 12- 0- 12-off-on • 16 

<PSG VOICE No. 1 1> 

32- 12- 4- 12-off-on • 13 



T— A3!zl— i>yyw?^ musica^e 



FRAY 



byfflJfZI- 



©v-i-zo^-pay 






FRAY 

(C) 7<*D*tt'V 
BY S. T 



FM1 =T. A10. AX. Al. A2. A3, A4, A5. A1 1, A6, A12. 

A6. A13, A4. A5, Al I, A6, A12. A6. A14, A7. A8/2. 

A9/2. AA/2. A9/2. AA, AB 

FM2 =T, B10, AX. Al. A2. A3. A4. A5, B1 1. A6. B12, 

B6. BI3, A4, A5, 811. A6. B1 2. B6, B14, A7. A8/2, 

A9/2. AA/2. A9/2. AA. BB 

FM3 =T, C10. CX. CI. C2. CI I, C3/2, C12. C4/2. CI 

2. C3/2. CI 2. C4/2 

FM4 =T. D10. CX. CI. C2. Dl 1, C3/2. D12. C4/2. Dl 

2. C3/2. Dl I, C4/2 

FM5 =T. E10. FX. Fl, F2. F3/2. F4. F4. E10. F3/2. 

F4. F4. El 2. F5. F6/4, F7/2. El 2, F8. F9 

FM6 =T, F10. FX. Fl. F2. F3/2. F4. F4. F10, F3/2. 

F4. F4. F12, F5. F6/4, F7/2. F12. F8. F9 

FMR =T, G0, GX. Gl/16. Gl/20. Gl /20. G2/10. G2/ 

15, G3 

FM7 = 

FM8 = 

FM9 = 

PSG1 = 

PSG2= 

PSG3=T. P30, JX. J 1/1 6, J 1/20. J 1 /20. J 1/10. Jl 

/15. J3 

SCC1 = 

SCC2= 

SCC3= 

SCC 4 = 

SCC5= 

T=T165 

A10=@35O5L8V15Z30Q6S1 

B10=@35O5L8V14Z0Q6R8 SI 

C10=O5L8VI4@6ZI0Q8 

D10=O5L8V12@6Z 0R8O8 

E10=O3L8V13O2Z30@12 

F10=O2L8V14Q7Z 0@I2 

G0=VH14 VC14 VB15 VS13 Y22, 60 Y23. 65 Y24 

.90 

P20=O5L8@5V12I10 

P30 = l_8 

Z0=R1 

: C 

Al 
Bl 
CI 
Dl 
Fl 
El 



1=@54O5L8V15Z30 

1=@54O5L8V13Z0 

1=05L8VI5@24 

1 =05L8V13@24 

1=03L8 

1=03L8 
A12=@65O6L8V15Z30 
B12=@65O6L8V13Z0 
A13=@35O4L8Z10V15 
B13=@3504L8Z 0R8V14 
CI 2=05L8V 15624 
D12=05L8V13@24 
A14=@31O3L8V15Z30Q4 
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B14=@31O3L8V13Z0Q4 

F11=02L8 

F12=02L8 

El 1=02L8 

E12=02L8 

A15=V13 

B15=V1 1 

FX=R4R8(A8) 

CX=R2 

AX=RDF>(C 

GX=R8MS8MS8BSM8 

JX=@0V 1 4CV 1 3@3C 1 6R 1 6V 11 C 1 6R I 6@4V 1 3C1 6R 1 6 

A1=M4C4I80)C2I0P23DP0(C C4. I80OC4I0D (E 

) 

A2=E4C4<A4>E(D4. 180) D4I0<RDF> (C 

A3=C4. 180) C4. I0DP17<P0(B B4. 180) B4. I0P17 

>D<P0(A A2I80A)A4I0G A16R16(A4. I80A<P4A4 

)AP0 

A4 = »D32D#32(E16)E8C4<A4 >E (D D4. 180) D4 I 

<B4>C (D4. 180) DI0R (E4) E (CC2I80) C4. P0 
A5=D32D#32(E16) E8C4<A4 >E (D D4. I80)D4I0 
<BB>C(D4. I80D4)DI0<GP2 (AA2I80)A2P0 
A6=<AA>E4EDC< (B) BBB>CDDC< (B) BB>G4GFED4 
P6 E4P0C4C4D DPI 9 (A#1 6P8B1 6B1 6) A#1 6P0G4D 
4E DPI 9 (AJM6P8B16B16) A#16P0G4D4E DP19(A# 
1 6P8B1 6B1 6) A#1 6P0G4D4E (B4) B>C1 6<B1 6 (A4I 
80) A4I0 

A7=M1Q6S0L16DRDD DRDD DRDD DRDD DRDD DRD 

D DRDD DADA EREEL8P49>A<E>G<E>C<EE1 6R1 6E 

1 6R 1 6>A<E>G<E>C<EE 1 6R 1 6E 1 6G1 6L8>A<E>G<E> 

C<EE1 6R1 6E1 6R1 6>A<E>G<E>C<E>P0 

A8=P13DD (G) G1 6F1 6G8A4G DD (G) G1 6F1 6A8>C4< 

AP0 

A9 = MIU6ARAR ABGABGABGABG A8P1 9G8E8P0A8A 

8P12G8E8P0A8 

AA=M1L16GRGR GAFGAFGAFGAF G8P1 9F8D8P0G8G 

8P12F8D8P0G8 

AB=L16GRGR GAFGAFGAFGAF G8P1 2F8D8P0G8G8 

BB=L16GRGR GAFGAFGAFGAF G8P12F8D8P0 

B6=<AA>E4EDC< (B) BBB>CDDC< (B) BB>G4GFED4 

P6 E4P0C4C4D DPI 9 (A#l 6P8B1 6B1 6) A#l 6P0G4D 

4E DP19(A#16P8B16B16) A#16P0G4D4E DP19(A# 

1 6P8B1 6BI 6) A#1 6P0G4D4E (B4) B>C1 6<B1 6 (A4) 
A8 

G1 =BH8R8MS8R8BH8R8MS8R8 

J1=L16®2V9EEEE @3V1 3ERS2V9EE EEEE 63V 13E 

RS2V9EE 

G2=BC8R8MS8R8BC8R8MS8R8 

G3=BC8R8MS8R8BH8 

J3=L16§2V9EEEE ®3V13ER@2V9EE EE 

F1=A>A<A>A< A>A<A(G) G>G<G>G< G>G<G(F) F 

>F<F>F< F>F<F(G) G>G<G> F16G16 <G>G<G (A 

) 

F2=A>A<A>A< A>A<A(G) G>G<G>G< G>G<G (F) F 

>F<F>F< F>F<F>F< F>F<F>F< L16G>G<F>FL8 (D 

P13)<DP0 

F3=F>F<F>F< F>F<F(G) G>G<G>F1 6G1 6< G>G<G 

(G) G>G<G>G< G>G<G(A) A>A<A>G1 6A1 6< A>A< 
A>A< 

F4=F4F4F4R(F) FFF4F1 6>F1 6<F1 6R1 6F8F8 G4G 
4G4R(G) GGG4G16>G16<G16R16G8G8 A4A4A4R (A 
) AAA4A16>A16<A16R16A8A8 A4A4A4RA4»C«B 
>B<L 1 6A>A<G>G<F>F<E>EL8 
F5=L4GG GG GG GG L8 

F6 = GG> (A<P22) D>P0 (GP22<) D>P0 (C<P22) DP0 
F7 = >DD (G) Gl 6G1 6G8A4G DD (G) Gl 6G1 6A8>C4<A 
F8=L4AA AA AA AA AA AA AA AA GG GG GG GG 

GG GG GG GG 
F9=L4AA AA AA AA AA AA AA AA GG GG GG GG 

GG GG GG G8 
C1=L16M4R8AGAGAB>(C4I80)C4I0R8C<B>C<B>CD 

(E4. 180) E4. I0<B#4F4B#8(B4. 180) B4I0R2 
C2= R8AGAGAB> (C4 1 80) C4 1 0R8C<B>C<B>CD (E2 1 8 
0E2)E4. I0D8 D8D8R8 (E4. I80)E4I0 
C3=L8E4C4<AA4>(D) DDC4<B (B) B4 >D4C4<BB4> 

(E) EED4C (E) E4 

C4=<A4A4A4R (A) AAA4>C4E4< B4B4B4R (B) BBB 
4>C4G4 E4E4E4R(E) EEE4E4A4 E4E4E4R> (C) C 
C<AAGGFF 



ffif"^ 



<FM VOICE No. 35> 
MD 18-6-0- 1- 7- 4- 



•off -off -off 



CR 0- 1-10- 1 
<FM VOICE No. 54> 
MD 7- 6-1- 0- 6- 
CR 1- 2- 8- 
<FM VOICE No. 65> 
MD 30-6-0- 2- 8- 3 
CR 0- 0- 9- 3 
<FM VOICE No. 31 > 
MD 6-4-0- 1-15- 9 
CR 0- 2-15- 6 
<PSG VOICE No. 0> 
32- 12- 8- 16-off -on 
<PSG VOICE No. 3> 
32- 12- 10- 10-off -on 
<PSG VOICE No. 4> 
32- 12- 9- 12-off -on 
<PSG VOICE No. 2> 
32-16- 0-21-off-on 



off-off-off 



off-off-off 
off-off-off 



0-off • on 
0-on -on 



off 
off 



'Off-Off-Off 

off-off-off 
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~A x JV~y )Vi$n musical §scc 



The Twice Apocalypse 

That A Harlot Presented Me 



by»ffllE& 



t>\ ivs/ufcxS'X'j/S'-ciBUtogjUfco am) 



* The twice Apocalypse 

that a harlot presented me. 



Composed by M. Fujita 
Programed by M. Fujita 



FM1 =T1. I1A. I IB. 1 1 A. I1C, T2. R1/4, A1A, 
A1B/2, A1C, AID, R 1/16. A1E. Rl/8, R3. R1/5. 

1 1 A. I 1 B. I 1 A. I1C, R1/6 

FM2 =T1. I2A, I2B, I2A. I 2C, T2. Rl /4, Al A. A2A, 

A1B/2, A1C, AID. Rl/16. A1E. R1/7. R2, R3. Rl/5. 

I2A, I2B. I2A, 1 2D. Rl/6 

FM3 =T1. R1/21. T2. B 1 A. Bl B/4, B1 C/2. Bl B 

/2. B1C, BID. B1E. B1F. B1C. BIG. B1H. B1 I, B1C. B 

1G, BIH, Bl I. B1C. BID. BIB. B1J. B1K, Rl 

FM4 =T1. RI/21. T2. B1A, B2A. BIB/4. B1C/2. BIB 

12, BIC, BID. B1E. B1F. B1C. BIG. BIH. Bl I. B1C, B 

1G. BIH, Bl I. BIC, BID, BIB. Bl J, B2K, Rl 

FM5 =Tt, RI/21. T2. E1A, R1/48, E1B, Rl 

FM6 = 

FMR -Tl, RI/21, T2, R1A. R1/3, RIB, R1C/7, RID. 

R1C/3. RID. R1C/3. RID. R1C/3. RID. R1C, RID, Rl 

C, RID. Rl 

FM7 = 

FM8 = 

FM9 = 

PSG1=T1. RI/21, T2. R1/20, D1A. DIB/8, D1C 

/16. DIB/2. D1C/6. Rl 

PSG2 = 

PSG3 = 

SCC 1=T1. RI/21, T2. R1/28, CIA , C1B. Rl 

SCC2=T1. RI/21. T2. Rl/28, CIA. C2A, C1B, Rl 

SCC 3= 

SCC 4 = 

SCC 5= 

: Prelude & Twice Apocalypse 
Tl =t 1 20 

: String 1 

IlA=@80v!4zl8o6eKa1> 

IIB=fldl (el) e4c4d4e4dl<b1 

1 1C= (f 2. . p10mlb8)p0b1 (al a4g4f 4e4) dKal (b 

lb2. . p4a8a1) a1>p0rl 

: String 2 

I2A=@80vl4o5a2b4a4>c2<b4a4 

I2B = f 2f 2dl (el)e4c4d4e4f2g2al 

I2C=g2a2(b2. . p5ml >e8p0el ) e4d4c4<b4al f 1 (g 

Ia2b4. p4>a8al)alp0rl 

I2D=g2a2 (b2. . p5ml >e8p0el ) e4d4c4<b4a1 f 1 (g 

Ia2b4. p4>a8al) >alp0rl 

: Present from a harlot 



T2=tl60 
R] = rl 

R2=r2. r16 

R3=r2t150r2t140r2t130 
: String 
A1A=o7116v15z0 
AlB=pl0el p0 (edcedce) d 
(bagbagbagbagbag) b 
A1C=o7 (c<ba>c<ba>c<ba 
a>c<ba>c<ba>c<ba>c) <b 
A1D=>p40a8p0 (ep20) a8p 
P0 (ep20) a8p0 (ep5aa4a2 
<a8>e) e2. p0 (epl 0<a8>e 
AlE=o7 (gfegfeg) e (bp4< 
edf tdf+ed) f+d4 (f+a>d) 
dcedcedc) e (gf egf egf eg 
)b1p0 

: Echo (string) 
A2A=vl3z37o6e8. o7 
: Base 
BlA=@12v1518 
B 1 B=o2a4aaa>a<a>a<a4a 
B1C :: o2e4eee>e<e>e<e4e 
Bl D=o2e4eee>e<e>e<e» 
6)ep0 

Bl E=o2a4aaa>aec<a>a<a 
e>e<e>e<e4e (el 6p4) a 
Bl F=o2a>ecaecac<a>aed 
<baf +d+>d+<ba>ad+f+<b 
BlG=o2d4ddd>d<d>d<d4d 
BlH=o2c4ccc>c<c>c<c4c 
Bl I=o2b4bbb>baf+d+>d+ 
bl6p0 
BU=o2a4aaa>a<a>a<a» 



r2t120 

(e8. p2<a8. >e8) e1p0< 

>c<ba>c<ba>c<ba>c<b 

ep20)a8p0(ep20)a8 
. p3>e4e1) e2. p0< (ep8 

e2. p0 
bb4)b1p0(f+edf+edf+ 
f +d4<a8f +8> (edcedce 
fegfe) c (bp4«bb4. b2 



>(e)e4(e16c16)<a 
(b) b4(bl6gl6)e 
e<bge< (gbl 6pl0m1>el 

>a<a>ceabge<b>ge<bg 

P0 

<a>a<a>a<b>b<b>b>d+ 

(a)a4(al6f+16)d 
(g) g4(g16e16)c 
<ba<ba>f+ (d+16p30) < 

aec<a> (cel6p10a16) a 



B1K=o2a2tl50 (>e 1 6p1 0<al 6) a4. p0tl40o2a2tl 

30 (>e16pl0<a!6) a4. p0tl20o2a2 (>e16pl0<al6 

) a4. P0v13o2a2vl0(>el6pl0<a16) a4. p0v7o2a2 

v4 (>e16p10<al6) a4. p0vlo2a1 

: Echo (base) 

B2A=v10z50r8. 

B2K=o2 (a4)a16tl50r8. (>el 6p1 0<al 6) a8. p0tl 

40r8. o2(a4)a16tl30r8. (>e1 6pl 0<al 6) a8. p0t 

120o2a2(>e16pl0<al6) a4. p0v9o2a2v6 (>el6pl 

0<al6) a4. P0v3o2a2v1 (>el6p10<a1 6) a4. p0v0o 

2(a2. )a16 

; Dist. flute 

ClA=@8v15116 

ClB=o4i20m8a2g4a4>c4e8<a8>c4<a4 (def +) ga4 

f +8a8>d4<a1>c4<g4e4c4 (def) g>c4< (gp5c8. ) c 

4p0 (<b>d+<babaf +) a> (bp2<bb4. ) b1p0e8>e8c8 

<a8 (>gfegfeg) e> (gp4<g) g4. p0 (bagbagb) a (dp 

8>dd4. ) d2p0 (f +af +df +da) f + (d<af +>d<af +>d) 

<a> (cec<g>c<gegecec<g>c<gegeg>c<g>cecege 

g>c<g>c) e< (bp2>>bb4. b2) b1p0 

; Echo (dist. flute) 

C2A=z30v1 lr8. 

: BPBurn 

Dl A=@1 31 1 6 

D1B=v12y6. 7a4y6, 28a4vl3y6, 14a4vl4y6. 7a4 

D1C=v10y6. 7a4y6, 28a4vl 1y6. 14a4v12y6. 7a4 

: Popepopepoan 

E1A=@23vl518z50 

ElB=o5caec< (al 6p1 0ml<a1 6a4. ) alp0r2. »ca> 

ec (a16p10»al6a4. ) a4p0 

: Rithm 

R1A=vb15vsl5vc15vhl3 

R1B=r2. bs8bh16h!6 

R1C=bh8bh8sh8bh8bh8sh8bh8sh16h16bh8h8sh8 

h8bshl6hl6chl6h16sh8sh16hl6 

RlD=bh8bh8sh8bh8bh8sh8bh8shl6hl6bsh8sh8s 

hc8h8bsch8shl6h16shc8hl6hl6 

: By Masanori Fujita 



^fex— 9 



<FM VOICE No. 80> 

MD 7-2-0- 2- 12- 0- 15- 

CR 0- 3- 9- 0- 14- 

<PSG VOICE No. 13> 

32- 3- 8-32-off-on -0 

<SCC VOICE No. 8> 

24- 8-12- 8 

40-50- 68- 7F-7F- 7F- 7F- 7F 



■ 1 • on • off • on 

■ 0- of f • on -on 
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68- 7F-7F- 7F-7F- 7F- 68- 50 
AF- 97- 80- 80- 80- 80- 80- 97 
80- 80- 80- 80- 80- 97- 15-3F 



*vvi-wm 



a-uswuajn 



MuSICAftIS 



P. I. D. 

byCAFE 



P. I.D 

CAFE (C) 

FM1 =T, Q, Fl. W. A 1/2, A2. A3/2, A4, 

FM2 =T, Q. F2, W, Al /2. A2, A3/2, A4. 

FM3 =T. R, F3, Bl/4. B2, B3/2, B4, 

FM4 =T, R. F4, Bl/4, B2. B3/2. B4, 

FM5 =T, F5, Cl/13, C2. FE, C3/2, C4, 

FM6 =T, F6. Cl/13. C2, FF.C3/2, C4. 

FMR = 

FM7 =T. 0. F7. Al /2. E, Bl/4, B2. B3/2. B4 

FM8 =T, 0. F8. Al /2, E, Bl/4, B2, F, B3/2, B4 

FM9 = 

PSG1 = 

PSG2 = 

PSG3= 

SCC1 = 

SCC2= 

SCC3 = 

SCC 4= 

SCC 5= 

T=T120 

Q=R1 

R=R1R1R1R1R1R1RIR1R1 

W=R1R1R1R1 

F1=86V15O5I20M2 

F2=83V15O5I30M3Z20 

A=86V 1 506 1 200M2Q8W1 S 1 

B=©3V 1 506 1 200M2Q8W 1 S 1 Z30 

F3=893V1 50603 

F4=@93V 150603230 

F5=86V15O2Q1P180I200M2 

F6=84V 1 503Q1 P 1 80 1 200M2Z30 

FE=812 

FF=§33 

F7=892V15O6I200M2 

F8=§92V15O6I200M3Z30 

E=@93V 1 506Q8 I 255M1 P20 

F=89302V1 5I200M2Z50Q8 

A1=L1>B>CEC« 

A2=>Q8C16D1< 

A3=L4>C<AFA>ECE<A8>C8E8C8<FA>CA<A4 

A4= L 1 A+AL 8A>CEC<AFA>C< 

B1=L8>C<FAF>C<FAF 

B2=Q8C16D1 

B3=FA>CFC<AFFA>C<F>CEC<AG>C<A>C<AF>F<F>F 
< 

B4=>C<A>C<AF>F<F>F<R1 EEEEEEEE 

C1=L4BBBB 

C2=>08C16D1< 

C3= > L8CCCCCCCC< AAAAAAAA>CCCCCCCC< 

C4=>CCCCCCCC<R 1<A>C< 

:H3. 11.5 VOL 1.0 V-Y10 (AVRA (FCD) ) 



<FM VOICE No. 93> 
MD 11-3- 1- 5-15- 
CR 1- 6-15- 
<FM VOICE No. 92> 
MD 24-4- 1 • 10- 12- 
CR 1-14-13- 



4- 


7- 


11 








off 


off 


off 


2- 


6- 


10 








off 


off 


off 


2- 


7- 


6 








off 


off 


off 


2- 


5- 


9 








off 


off 


off 



MuSICAttlS 



by|Pf^$ 

g57b\ fl»CS5lttl;:J&:0£r<fco 



FMl = T, Fl. FM1/2. FM2/2. R. FM1/2. FM2/2 

. FM3, FM4 
FM2 = T. F2, FM1/2. FM2/2, R. FM1/2. FM2/2 

FM3 
FM3 = T. Bl. FM1/2, FM2/2, R, FM1/2. FM2/2 

, FM3, FM4 
FM4 = T, B2. FM1/2. FM2/2. R. FM1/2, FM2/2 

, FM3, FM4 
FM5 = T. CI. PCI/2, PC2/2. R, PCI/2. PC2/2 

. PC3, PC4 
FM6 = T, C2. PCI/2. PC2/2. R. PCI/2, PC2/2 

. PC3 
FMR = T, D1/16. R/5, Dl/4, D2/3. D3. D2/3, D3 

.Dl/10 
FM7 = 
FM8 = 
FM9 = 
PSG1= T. PI, PM1/2, PM2/2. R, PM1/2. PM2/2 

. PM3, PM4 
PSG2= T, P2. PM1/2. PM2/2. R. PM1/2, PM2/2 

. PM3 
PSG3= T. PD1/17. R/5. PD2/3, PD3/2. PD1/10 
SCC1 = 
SCC 2= 
SCC3= 
SCC4= 
SCC5= 

T=T140 :orT130"139 

PI =®1 4 05 VI 1 Z40 
P2=614 05 V 9 R8R16 
C1=84Q5 05 VI 1 Z10 
C2=84Q5 05 VI R8R16 
Fl=890 05 V 9 Z20 
F2=890 05 V 8 R8R16 
B1=Q486 03 VI 1 
B2=0486 03 VI 1 Z30 
R=RI 

PM1=L4 C2<G>C C8D8E8F8GE FEDFEDCD 
PM2=A2FA L8GFEFG4E4 FEDC<B>CDF GFEDCDEG 
PM3=F2E4F4 G4. EC2 FAGFEDEF AGCFE2 LI 6 CD 
EC DEFD EFGE FGAF GABG AB>C<A B>CD<B >CD 
EC C2E2 L8 FEDCD4 DEF2D2GFED 
PM4=C2 

PC1=L4 E2CE E8F8G8A8BG AGFAGFEF 
PC2=L8>C2<A4>C4<BAGAB4G4 AGFEDEFA BAGFEF 
GB 

PC3=A2G4A4 B4. GE2 A>C<BAGFGA >C<BEAG2 LI 
6 EFGA FGAF GABG AB>C<A B>CD<B >CDEC DEF 
D EFGE E2G2 L8 AGFEF4 DAA2F2BAGF 
PC4=E2 

FM1=L2 C1EIFDC1 
FM2=CKBGAFGE> 
FM3=L1 CC DD CC CD F2D2G2 
FM4=C2 

D1=Y39, 5 VS 9 VH10 VB13SB8 VB10BSH8 BSH8 
VB13BS8 VB10BSH8 VB13SB8 SI 6S1 6BSH1 6BSH 
16 

D2=VH10 VC11 H16H16HCB8 H16H16HCB8 H16H1 
6HCB8 HCB8HCB16HCB16 

D3= H16H16HCB8 H16H16HCB8 H16H16 HCB 
16HCB16 HBC16HBC16HBC16HBC16 

PD1 = V9L16 §21 C8 CC C8 CC C8 C8 V10L16 
CCC8 
PD2=04L64 V13S15C V13616C V 961 7C V6818C 
V5819C V4820C R64R64 R8 

V13815C V13816C V 9817C V6818C 
V5819C V4820C R64R64 R8 

V13815C V13816C V 98I7C V6§18C 
V5819C V4820C R64R64 R8 

VI 1®1 6C V 8817C V 6818C V4819C 

VI 1@1 6C V 8817C V 6818C V4819C 



VI2816C V 9817C V 7818C V5§19C 

VI3816C V10817C V 8S18C V6819C 

PD3=L16 VI 1829 CCC8CCC8CCC8C8CC CCC8CCC8 

CCC8C8CC CCC8CCC8CCC8C8CC CCC8CCC8CCCCCC 

CC 



Iffif-^' 



<FM VOICE No. 90> 

MD 10-0-1- 1- 3- 2- 10- 15- 1-0-on -off-off 

CR 1- 2- 4- 0- 10- 15- 1-0-on -off-off 

<PSG VOICE No. 14> 

27- 1- 10- 14-on -off -0 

<PSG VOICE No. 21 > 

28- 16- 10- 5-off -on -6 

<PSG VOICE No. 15> 

32- 15- 15-32-on -off-5 

<PSG VOICE No. I6> 

32- 15- 15-32-off -on -4 

<PSG VOICE No. 17> 

32- 15- 15-32-off -on -3 

<PSG VOICE No. 18> 

32- 15- 15-32-off -on -2 

<PSG VOICE No. 19> 

32- 15- 15-32-off-on • 1 

<PSG VOICE No. 20> 

32- 15- 15-32-off-on -0 

<PSG VOICE No. 29> 

32-27- 0-32-off-on -0 



v-iiz.j.-vv'pm 



WV-Ouxi ir-yi 



by*S*,S& 



t**l 



±i$-%£&uz^-z<t=i-^(Dmmmu-oz 



10 CALL MUSICfl, 0, 1, I. 1, 1, 1, 1) 

1 1 CALLTRANSPOSE (-200) 

12 DIM AX (15) 

13 FORI=0TO15 

14 READA$:A*(I)=VAL("&H"+A$) 

1 5 P0KE&HFA1 C. 30 : P0KE&HFA3C. 40 : P0KE&HFA4 
C, 20.-POKE&HFA5C, 55 :POKE&HFA0C. 45 

16 NEXT 

17 CALLV0ICEC0PY(A5«, 863) 

18 DATA 0. 0, 0. 0, 0000, 7, 0, 0, 4141, 22F4, 0, 
000. 0064. 1FFF. 0, 

20 CALL VOICE (863, 863. 863, 824, 824, 81 2) 

30 B1$="05L1FGB->C" 

40 C1$="05L1DDFG" 

50 D1$="04L1AB>DE" 

60 E1$="03R2L16A>DFA>D<AFDR2<B->DGB>D<BG 

DR2<B>DFB->D<B-FDR2CEG>CEC<GE" 

70 Fl $="03L8DDDDDDDDDDDDDDDD<B-B-B-B-B-B 

-B-B->CCCCCCCC" 

80 G1$="B!H16H1 6H1 6H1 6BSH1 6H16H16H1 6BIHI 

6H 1 6H1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! 

H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6 

B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B 1 H 1 6H 1 6H I 6H 

1 6B ! H 1 6H 1 6H 1 6H I 6B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 

6H16BIH16H16H16H16" 

90 B2$="06L1DEFL4G. L8G&L4GG" 

100 C2$="05L1A>CDL4E. L8E&L4EE" 

1 10 D2$="05L1FGB->L4C. L8C&L4CC" 

1 20 E2$="04R2L 1 6DFA>DFD<AFR2EG>CEGEC<GR2 

FA>DFB-FD<B-L4G. L8G&L4GG" 

1 30 F2$="03L8DDDDDDDDCCCCCCCC<B-B-B-B-B- 

B-B-B->L4C. L8C&L4CC" 

1 40 G2$= "B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! H 

1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H I 6B ! H 1 6H 1 6H 1 6H 1 6B 

!H16H16H16HI6B!H16H16H16H16B!H16H16H16H1 

6B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H I 6 

H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! H4B ! H8B ! H4B ! H4 " 



103 



150 B3S="06L1G&GF+&L2FL4FR4" 

160 C3$="06L1D&DD&L2DL4DR4" 

170 D3$="05LIA&AA&L2AL4AR4" 

180 E3$="04L1G&GF+&L2FL4FR8L16AD" 

190 F3$="03L8DDDDDDDDDDDDDDDDDDDDDDDDDDD 

DL4DR4" 

200 G3 $ = " B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! H 

1 6H I 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B 

! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 

6B ! H 1 6H 1 6H 1 6H 1 68 ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6 

H 1 6B ! H 1 6H 1 6H 1 6H 1 68 ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 

I6H16S4R4" 

210 A1$="06L8ADF+A>D<AGFL4DF+A>DL2F&L4FR 

8L8G" 

220 A2$="06L8ADF+A>D<AGFL4DF+A>DL2C&L4CR 

8L8E" 

230 A3$="06L8ADF+A>D<AGFL4DF+A>D<L2A&L4A 

R8>L8C" 

240 B4$="05L1D<A>C" 

250 C4$="04L1DDC" 

260 E4$="04L2F+. &L8FL1 6ADL2F+. &L8FL16ACL 

2F + . &L8FL16AC" 

270 F4S="03L8DDDD<A>L16D<A&AL8F+. >DDD<A> 

DL16F+D&DL8AL16FL8FFFFCL16FC&CL8<AL16F" 

280 G4 $ = " B ! H 1 6H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H 1 6B ! H 

1 6H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6S 

H 1 6H 1 6BH 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H 1 

6B ! H 1 6H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H 1 6B ! H 1 6H 1 6H 1 6 

H16SH16H16BH16H16" 

290 A4$="07L 1 A<L8G>ECEEL4FL8G&GL4AL8B-&B 

-AGAL2G. R8L8F+L1F+" 

300 A5$="07L 1 F<L8G>ECEEL4FL8G&GL4AL8B-&B 

-AGAL2D. R8L8DL1D" 

310 A6$="07L1C<L8G>ECEEL4FL8G&GL4AL8B-&B 

-AGA<L2A. R8L8AL1A" 

320 B5$="04L1FL2G. L8FG&GL4FL8G&L4G. L8CL2 

DR16L16DEFGA>CL1D" 

330 C5$="04L 1 C<L4GL2GL8EG&GL4A>L8C&CL4D< 

L16A>DL2D. &L8DL I 6>C<DL2D. L8D>L16C<D" 

340 E5$="04L2G. &L8GL 1 6E<G>L4CL2CL8<G>C&C 

L4DL8E&EL4F<L16A>DL2G. &L8GL 1 6>C<DL2F+. &L 

8FL16AD" 

350 F5$="03L8FFFFCL16FC&CL8AL16FL8CCCL16 

CC&CL8C<L 1 6GL8EG>CL4EL8F&FL4GL8CDDL 1 6DL8 

DL I 6D&DL8DL 1 6D>D<DDDL8DDL 1 6DL8DL 1 6F+4F+L 

8AL16G&GL8FL16A" 

360 G5$ = " BH 1 6H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H I 6BH 1 6 

H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H 1 6BH 1 6H 1 6H 1 6H 1 6SH 1 6 

H 1 6BH 1 6H 1 6BH 1 6H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H 1 6H 1 6 

SH 1 6H 1 6BH 1 6H 1 6BH 1 6H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H 1 

6BH I 6H 1 6H 1 6H 1 6SH 1 6H 1 6BH 1 6H 1 6BH 1 6H 1 6H 1 6H 1 

6SH 1 6H 1 6BH 1 6H I 6S 1 6M8B 1 6S 1 6M8B 1 6S8B48B48B 

48S16BH16" 

370 A7$="07L1A" 

380 A8$="07L1F" 

390 A9S="07L1C" 

400 B6$="04L1F" 

410 C6$="04L1C" 

420 E6$="04L2F. &L8FLI6AD" 

430 F6$="03L8FFFFCL16FC&CL8AL16F" 

440 G6$= " B ! H 1 6H 1 6H 1 6H I 6S ! H 1 6H 1 6B ! H 1 6H 1 6B 

! H 1 6H 1 6H 1 6H 1 6S ! H 1 6H 1 6B ! H 1 6H 1 6 " 

450 AAS="07R4L2B-L4ALI6GAGFGFEFL8ECEGL2G 

. R8L8F + " 

460 AB$="07R4L2B-L4AL16GAGFGFEFL8ECEGL2D 

. R8L8D" 

470 AC$="07R4L28-L4AL 1 6GAGFGFEFL8ECEG<L2 

A. R8L8A" 

480 B7$="04L2B+. L4>CL2ER8L8C<GEL2DR8L1 6D 

EFGA>C" 

490 C7$="03L4FFR2R8L4G" 

500 E7$="03L4B-B-R8L8DFB-R4L4>C<R8L8EG>C 

L 1 2D<AG>D<AG>D<AG>D<AG" 

510 F7$="03L8CL16EC&CL8GL16EL8CL16EC&CL8 

>C<L1 6GL8DDL 1 6DL8DL 1 6D&DL8DL 1 6D>D<DDDL8D 

DL I 6DL8DL 1 6D&DL8DL 1 6D&D>D<B-F+" 

520 G7$="B!H16H16H16H16S!H16H16B!H16H16B 

! H 1 6H 1 6H 1 6H I 6S ! H 1 6H 1 6B ! H 1 6H 1 6B ! H 1 6H 1 6H 1 6 

H 1 6S ! H 1 6H 1 6B ! H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6S ! H 1 6H 1 

6B ! HI 6H 1 6S1 6S1 6S1 6M1 6M1 6M1 6B1 6B1 6S24B48B 

48B48B!S16B!H8. " 

530 AD$="07L1F+R4L2B-L4AG. L8F&L4FGL8FEDC 

L4DL8FE" 

540 AE$ = "07UDR4L2B-L4AG. L8F&L4FGL8FEDCL 

4DL8FE" 

550 C8$="O5V10L1AL8O4FFR4R2EER4R2DDR4R2" 



560 D4S="05L1DL8<B-B-R4R2GGR4R2GGR4R2" 

570 E8$="06L 1 2D<AF+>D<AF+>D<AF+>D<AF+04L 

4DF<L16EB->DEFEDFL4EGL16<G>CEFGFEGL4DAL1 

6<A>DGAG>D<AG" 

580 E9$="06L 1 2D<AF+>D<AF+>D<AF+>D<AF+04L 

4FB-<L 1 6EB->DEFEDFL4G>CL 1 6«G?CEFGFEGL4A 

>D<L16<A>DGAG>D<AG" 

590 EA$="06LI2D<AF+>D<AF+>D<AF+>D<AF+04L 

4F>D«L 1 6EB->DEFEDFL4G>EL 1 6«G>CEFGFEGL4 

A>G<L 1 6<A>DGAG>D<AG" 

600 F8$="03L8DDL1 6DL8DL 1 6D&DL8DL 1 6D&D>D< 

AF+<DF>L8D<D. LI 6D&L8DL1 6>FDDL8B-. L16C<GL 

8E>C. L 1 6C&L8CL 1 6DC&CL8C. L 1 6D<AL8G>D. <L 1 6 

A&L8A>L I 6D<A&A>L8GL1 6D" 

610 G8$ = *'S1 6S1 6S1 6M1 6M16M1 6B1 6B1 6S1 6B1 6B 

1 6B 1 6B ! H 1 6B ! H8. B ! H 1 6H 1 6H I 6H 1 6BSH 1 6H 1 6H 1 6 

H 1 6B ! H 1 6H 1 6B ! H 1 6B ! H 1 6S ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6 

H 1 6H 1 6H 1 6BSH 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6B ! H 1 6B ! H 1 

6S ! H 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6H 1 6BSH 1 6H 1 6H 1 6 

H 1 6B ! H 1 6H 1 6B ! H 1 68 ! H 1 6S ! H 1 6H I 6H 1 6H 1 6 " 

620 AF$="07L8DCL4DL8FEDCL16FEDCFEDCFEDCF 

EDCFEDCFEDCFEDCFEDCL 1 0DEL8FL 1 0EFL8GL 1 2FA 

630 CA$="04L8AAR4R2B-B-R4R2GGR4R2GGR4R2" 

640 CB$="04L8F+F+R4R2FFR4R2EER4R2DDR4R2" 

650 EB$="04L4A>DL!6<DF+A>DF+D<AGL4DFL16< 

EB->DEFEDFL4EGL 1 6<G>CEFGFEGL4DA<L I 6A>DGA 

G>DAG" 

660 EC$="05L4DF+L16<DF+A>DF+D<AGL4FB-L16 

<EB->DEFEDFL4G>CL1 6«G>CEFGFEGL4A>D«L1 6 

A>DGAG>DAG" 

670 ED$="05L4DAL16<DF+A>DF+D<AGL4F>D<L16 

<EB->DEFEDFL4G>EL16«G>CEFGFEGL4A>G«L16 

A>DGAG>DAG" 

680 F9$ = "03L16D<AL8F + >D. LI 6<A&A>L 1 6D<AF + 

>L8FL16DC<GL8E>C. L 1 6C&L8CL I 6DC&CL8C. L16D 

<AL8G>D. <L1 6A&L8A>L 1 6D<A&A>L8GL 1 6DD<AL8F 

+ >D. <L16A&L8A>L16D<AF+>L8FL16D" 

690 G9 $ = " B ! H 1 6H 1 6H 1 6H I 6BSH 1 6H 1 6H I 6H 1 6B ! H 

1 6H I 6B ! H 1 6B ! H 1 6S ! H 1 6H I 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6 

H 1 6BSH 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6B ! H 1 6B ! H 1 6S ! H 1 6 

H 1 6H I 6H 1 6B ! H 1 6H I 6H 1 6H 1 6BSH 1 6H 1 6H 1 6H 1 6B ! H 

1 6H I 6B ! H 1 6B ! H 1 6SH 1 6H 1 6H I 6H 1 6B ! H 1 6H 1 6H 1 6H 

1 6BSH 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6B ! H 1 6B ! H 1 6S ! H 1 6H 

I6H16H16" 

700 AG$="08L4D. &L8D<L8DAB->C<B-AGAGFGFEF 

EDCDR8L16DEEFEDEFEDL8CE" 

710 CC$="04L8DDR4R2FFR4R2EER4R2DDR4R2" 

720 CD$="04L8F+F+R4R2B-B-R4R2GGR4R2GGR4R 

2" 

730 EE$="04L4F+AL16DF+A>DF+D<AFL4DF<L16F 

B->DEFEDFL4EG<L16G>CEFGFEGL4DA<L16A>DGAG 

>D<AG" 

740 EF$="04L4A>DL16DF+A>DF+D<AFL4FB-<L16 

FB->DEFEDFL4G>C«L16G>CEFGFEGL4A>D«L16A 

>DGAG>D<AG" 

750 EGS = "04L4A>F + L16DF+A>DF+D<AFL4F>D«L 

1 6FB->DEFEDFL4G>E«L 1 6G>CEFGFEGL4A>G«L 1 

6A>DGAG>D<AG" 

760 FA$="04L16D<AL8F+>D. <L1 6A&L8A>L1 6D<A 

L8F+>L 1 6FD<B-F>L8D<B-. L 1 6B-&L8B->L 1 6FD&D 

L8B-. L16C<GE>L8C. L 1 6C&L8CL1 6DC&CL8C. L16D 

<AL8G>D. <L 1 6A&L8A>L 1 6D<A&A>L8GL 1 6D" 

770 AH$="07R8L16DEEFECEFEDAGFE" 

780 CE$="04L8DDR4R2" 

790 CF$="04L8AAR4R2" 

800 EH$="04L4A>D<LI6DF+A>DF+D<AG" 

810 EI$="04L4>L4DF+<L16DF+A>DF+D<AG" 

820 EJ$="04L4>L4DA<L1 6DF+A>DF+D<AG" 

830 FB$="04L16D<AL8F + >D. <L1 6A&L8A>L1 6D<A 

F+>L8FL16D" 

840 GA$= " B ! H 1 6H 1 6H 1 6H 1 6BSH 1 6H 1 6H 1 6H 1 6B ! H 

16H16B1H1 6B!H16S!H16H16H16H16" 

850 AI$ = "07L2D&L8D<L4B-. >L2E&L8EL4C. L2D. 

L8EDL4C+. L8D&L4DE" 

860 CG$="04L8FFR4R2EER4R2<L1A>C" 

870 CH$="04L8B-B-R4R2AAR4R2L1DA" 

880 EK$="04L4DF<L16FB->DEFEDFL4EG<L16G>C 

EFGFEFL12>D<AE>D<AE>D<AE>D<AE>C+<AE>C+<A 

E>C+<AE>L8D<L16A<L8A" 

890 EL$ = "04L4FB-<L16FB->DEFEDFL4G>C«L16 

G>CEFGFEFL12>D<AE>D<AE>D<AE>D<AE>C+<AE>C 

+<AE>C+<AE>L8D<L \ 6A<L8A" 

900 EM$="04L4F>D«L16FB->DEFEDFL4G>E«LI 

6G>CEFGFEFL I 2>D<AE>D<AE>D<AE>D<AE>C+<AE> 

C+<AE>C+<AE>L8D<L1 6A<L8A" 



910 FC$="02L16B-F>L8D<B-. L 1 6B-&L8B-L 1 6F> 

D&DL8<B-. >LI6C<G>L8EC. Li 6C&L8CL1 6DC&OL8 

C. «L8AAAAAAAAAAAAA>L16EC&OL8A. " 

920 GB $ = " B ! H 1 6H 1 6H 1 6H 1 6BSH 1 6H 1 6H 1 6H 1 6B ! H 

1 6H 1 6B ! H 1 6B ! H I 6S ! H 1 6H I 6H 1 6H 1 6B ! H 1 6H 1 6H 1 6 

H 1 6BSH 1 6H 1 6H 1 6H 1 6B ! H 1 6H 1 6B ! H 1 6B ! H 1 6S ! H 1 6 

H16H16H16B!H16H16H16H16S!H16H16H16H16B!H 

1 6H 1 6H 1 6H 1 6S ! H 1 6H I 6H 1 6H 1 6S8S8S8S8S8B48B4 

8B48S16BIH8. " 

1000 PLAY#2. "T165V8", "T165V8". "T165V8". " 

T165V10", "T165V10". "T165V8", "T165V15SA15 

". "T165V10", "T165VI0", "T165V10" 

1010 PLAY#2, B1$.C1$. Dl$, " ". El $. Fl $. Gl $. 



1020 PLAY#2. B2$. C2$, D2$, " ". 
1030 PLAY#2, B3$. C3$, D3$, " ", 



1035 FOR 1=0 TO 1 



PLAY#2. Al$ 



1040 

C4$, " ". " 

1050 PLAY#2, A4$ 
C5$. " ". " " 

1060 PLAY#2. Al$ 
C4$. " ", " " 

1070 PLAY#2, A7$ 
C6$, " ". " " 

1080 PLAY#2, AA$ 
C7$, "","" 

1090 PLAY#2, ADS 
C8$.C9$. D4$ 

1 100 PLAY#2. AF$ 
CAS, CBS, " " 

1110 PLAY#2. AGS 
CCS, CDS, " " 

1 120 PLAY#2, AHS 
CES. CF$, " 

1 130 PLAY#2. AIS 
CGS.CHS, " " 

1 140 NEXT I 



A2S. A3S. B4S 
A5S, A6$. B5S 
A2S, A3S, B4S 
A8S, A9S, B6S 
ABS. ACS. B7S 
AES, E8S, E9S 
" ", EBS. ECS 
" ". EES. EFS 
" ", EH$, EIS 
" ". EKS, ELS 



E2S. F2S, G2S. 
E3S, F3S, G3S, 

E4$. F4$, G4$, 
E5S. F5S. G5S. 
E4S. F4S, G4S. 
E6S, F6S, G6S. 
E7S, F7$. G7$. 
EAS. F8S, G8S. 
EDS. F9S. G9S. 
EGS. FAS. G9S. 
EJS. FBS. GAS. 
EMS, FCS, GBS, 



^-/xHa-y^^SBP^ 



FRAY 



Z©^P^'5A(SK^A©glcPCM^1^orL^ 

sfc«&CTurbo RWfflt&orusoraiio 

fft>ti§o -euruxs 4^A^3Ur"XAK. 
FM" (ti^yy-Ob^-Ciz-ybZ, U7. K 5 € 
A*, HfrTStSIStf *&**?«, 

160 CLEAR 100, 4HA000: SCREEN0:WIDTH 40 

170 A=&HA000 

180 LOCATE 0. 3: PRINT"READING LINE NO. " 

190 ' 

200 CS=0 

210 FOR B=A TO A+7 

220 READ D$:D=VAL ("&H"+D$) 

230 IF D$ = "END" THEN BSAVE "PCM. BIN". &HA 

000, &HA0FB:PRINT"— END — " : END 

240 CS=CS+D:POKE B. D 

250 NEXT 

260 L = PEEK (&HF6A4) *256+PEEK (&HF6A3) 

270 LOCATE 18, 3: PR I NT L 

280 READ S$ 

290 CSS = RIGHT$("00"+HEX$(CS).3) 

300 IF CSSoSS THEN 330 

310 A=A+8 

320 GOTO 200 

330 "==== ERROR ================== 



104 



340 PRINT LjT 3 
350 BEEP: END 
360 '==== DATA = 
1000 DATA C3, 06. 
1010 DATA D3. A5, 
1020 DATA 32, F3. 
1030 DATA A0, 01. 
1040 DATA C3, 32. 
1050 DATA 9B, FD. 
1060 DATA 04, CB. 
1070 DATA DF, F3. 
1080 DATA 99, ED. 
1090 DATA ED, 59. 
1 1 00 DATA C8. AF. 
1110 DATA A0, 11. 
1120 DATA B0, 18. 
1 130 DATA 1 1, 8F. 
1140 DATA 59, DB. 
1150 DATA 99, ED. 
1 160 DATA 00, 00, 
1170 DATA 59, 11. 
1180 DATA 07. FE. 
1190 DATA A0, D3. 
1 200 DATA A0. DB, 
1210 DATA A0, B7. 
1220 DATA A0, 21. 
1230 DATA 21, 00. 
1240 DATA 04, 22, 
1250 DATA AF. D3, 
1 260 DATA A4. 23. 
1270 DATA A0, 1B, 
1280 DATA F9, A0, 
1290 DATA A0, 11, 
1300 DATA C3. 7B. 
1310 DATA 00.00. 
1320 DATA END 



mvz iiO'Jsma' 7'm - 



A0. C3. 
3A, F3. 
A0. 21, 
05, 00. 
9A. FD. 
3A. DF, 
E7, 18. 
1 1 . 93. 
51. 3A, 
FB. C9, 
32. F3. 
9A. FD. 
C7. F3. 
01. 0E, 
99, IF, 
59. F1. 
00. C9. 
82. 93. 
D4, 38, 
99, ED. 
A2, B7, 
20, IF. 
00, B0, 
B4, 22, 
FA. A0, 
Al. 2A, 
22, F7, 
7B, B2. 



4C. A0, 
A0, B7, 
9A. FD, 
ED, B0, 
21. 63, 
F3, CB, 
02, CB, 
80. 0E, 
F6. A0, 
3A, F3, 
A0, F3, 
01. 05, 
E5. D5, 
99. ED, 
38. 0E, 
C1.D1 
AF. D3, 
3A, F6, 
01. AF, 
51, 3E, 
20, 08, 
18, CD, 
FE, 02, 
F7. A0, 
3E. 0D 
F7. A0 
A0, ED 
20, 0E 
B0, ED 
ED, 53 



E6, 07 



3E, 02, 358 
C0, 3D, 4F9 
1 1, 7F, 40D 
F3. 3E, 374 
A0. 22, 3D2 
67, 20, 4F6 
A7, 32. 374 
99, D3, 470 
D3, 99, 513 
A0, B7, 58E 
21. 7F. 4CF 
00. ED, 33B 
C5. F5, 5F6 
51, ED, 373 
AF, D3, 3B4 
El, 00. 543 
99, ED, 3D1 
A0. C6, 415 
32. F6. 3E9 
0D, D3. 468 
3A. F9. 42F 
32, F9, 3A6 
20, 03. 294 
21.00, 2AF 
D3. A0. 37E 
7E, D3. 535 
5B. FA. 4C2 
AF. 32. 2F7 
53, F7. 491 
FA, A0, 38F 
00, 00. IDE 
FE, 06, 1F1 



UXK2 



100 FOR I 
110 READ 
120 NEXT 
130 FOR 1 
T 

140 BSAVE 
150 PRINT 

1000 '=== 

1010 DATA 

1020 DATA 

1030 DATA 

1040 DATA 

1050 DATA 

1060 DATA 

1070 DATA 

1080 DATA 

1090 DATA 

1 1 00 DATA 

1110 DATA 

1 1 20 DATA 

1 1 30 DATA 

1 1 40 DATA 

1 1 50 DATA 

1 1 60 DATA 

1 1 70 DATA 

1 1 80 DATA 

1 1 90 DATA 

1200 DATA 

1210 DATA 

1220 DATA 

1230 DATA 

1240 DATA 

1250 DATA 

1260 DATA 

1270 DATA 

1280 DATA 

1290 DATA 

1300 DATA 

1310 DATA 

1320 DATA 

1330 DATA 

1340 DATA 

1350 DATA 

1360 DATA 

1370 DATA 

1380 DATA 

1390 DATA 

1400 DATA 

1410 DATA 

1420 DATA 

1430 DATA 

1440 DATA 



TO &HB15F 
i:POKE I. VAL ("&H"+A$) 



=&HB160 TO &HB3FF:P0KE I.80:NEX 



SNEA. PCM 
'— END 
■■ DATA == 
9A. 60. B2, 
6C. 7C, B7, 
B7, 80. 4F, 
D7. 87. 72, 
7A, 90. 92, 
7E, 93. 77, 
A0, 83, 68, 
91, 88. 70, 

80, 7A, 88, 
7F. 76. 82, 
72. 97. 77, 
7A. 7D. 78, 
72. 8F. 7C, 
85. 8F, 72, 
7F, 90, 7F, 
7A. 73. 8B, 

83. 7F. 81, 

87, 7D. 85, 

84. 75, 89, 

85. 74. 85, 

83. 77.81, 
8B. 7A, 80, 

84. 77. 88, 
7D. 80, 7F, 
8B. 7F. 78, 

88. 7A. 7D, 
87, 80. 80, 

81, 80. 80, 

82, 83. 7D, 
80, 80. 81. 

82. 7B. 7F. 
80. 83. 80, 
80. 7E, 82, 
7F. 7F. 80, 

83. 7D, 80, 
80. 7D. 84, 

82. 7E. 81, 
80. 7F. 81, 

83. 7F. 7F. 
82. 7E, 82, 
80. 80, 7F, 
80. 82, 80, 
80, 80, 80, 
80, 7F, 80, 



'. &HB000. &HB3FF 
— ":END 



7F.33. 
87, 3F. 
A5. 8B. 

73, 6A. 
5D, 77. 
6D. 7D. 
72. A6. 
8F. 7F. 
75. 7C. 
7A. 77. 

74. 82. 
85. 89. 
7A. 88. 
7B. 83. 

85, 7C. 
83. 87. 
77. 83. 
7D. 85, 
80, 85, 
7F. 7F. 

86, 7F, 
80, 7B. 
83, 7B, 
83, 7B, 

87, 82. 
87. 7B, 
7F, 82, 
7D, 87, 
80, 7D, 
83. 80. 
83, 80, 
7C, 83, 

80, 7E, 
7F, 83, 
82. 80. 
7D, 81, 

81, 80. 
7F, 82, 

82, 7F. 



B4, 97, 8A 
A3. 4F. 76 
97. 51. 65 
AC. 73. 78 
93. 7B, 74 
8A. 7D, 70 
7A. 68, 77 

83. 70, 84 
8A. 7F. 8F 
8F. 79. 84 
78. 90. 7F 
6C. 7D. 93 
73. 83. 73 
7C, 90. 65 
7A. 80. 85 
7C. 85. 7D 
88. 78. 79 
7B. 80, 7D 
7E. 7F, 87 

77. 81, 80 

82. 7C. 77 
80. 87. 75 
7F, 88. 7F 
80. 87. 76 

78. 83. 77 
85, 7E. 7B 

84, 7F, 7F 
80, 80, 7F 

83, 84. 7F 
7C, 7F. 83 
80, 7F. 80 
80. 80, 80 
7F, 81. 83 
7F, 80, 80 
7F, 80. 80 
83, 7D, 80 
80, 82, 80 
7F, 80, 7F 
81,80, 80 

80, 7F, 80 

81. 80, 7F 



3, 7F, 



7F, 



7.S3 



10 FOR I=&HB400 TO &HB49F 

20 READ A$:POKE I, VAL ("&H"+A$) 

30 NEXT 

40 FOR I=&HB4A0 TO &HB7FF: POKEI. &H80 :NEX 

T 

45 BSAVE "BSDRAM. PCM". &HB400. &HB7FF 

50 PRINT"— END — ":END 

360 === = DATA =================== 

000 DATA BA, 6B, 58, AB. 74, 8D. 89. 72 
010 DATA 7C, 7C. 8B, 72, 7C. 8C, 85. 7F 
020 DATA 81 . 7C, 77. 84. 8A. 73. 78. 8B 
030 DATA 84. 7D. 8A, 82. 74. 88. 87. 7F 
040 DATA 7D. 83. 7B, 73. 94, 83. 77. 7B 
050 DATA 83. 82. 7F, 82, 78, 7B. 8B. 87 
060 DATA 78. 75. 8A, 83. 78. 7C. 87. 8A 
070 DATA 80. 75, 82. 81, 7C. 7D. 85. 83 
080 DATA 7D. 80, 7F, 82. 82. 7D. 7F. 82 



090 DATA 83. 87. 

100 DATA 80. 7E, 

1 10 DATA 80, 81. 

120 DATA 81. 82. 

1 30 DATA 7F, 80, 

140 DATA 80. 80, 

1 50 DATA 80, 80, 

1 60 DATA 80, 80, 

1 70 DATA 80, 80, 

180 DATA 80, 80, 

190 DATA 80, 80, 



7C. 7B, 80, 84. 82 
7D. 7F. 83, 82. 7F 
80, 7F, 7D. 7F. 80 
80.81.80. 80. 80 
80. 7E. f 



7F 
7F 



81. 7E. 

7F. 80. 



7F, 7F, 



»U*S4 



100 CLEAR 1000. &HA000 : POKE&HA090. 18 

110 _MUSIC (1.0. 1. 2. 1. 1) 

120 SOUND 7, &B0011 1001 

130 P0KE&HFA3C. 20 

140 Q$ = "T180V15Y24. 10Y23. 255SH4R4SH4R4SH 

4R4SH4R4 

150 H1$="T25507L64V9 CDCDCDCDR4CDCDCDCDR 

4CDCDCDCDR2CDCDCDCDR1 6CDCDCDCDR8R1 6CDCDC 

DCDR16CDCDCDCD 

160 A1$="T180V14 0885306L8' 

170 B1$="T180V13 81202L807 

180 C1$="T180V10 82405L16 

190 E1$="T180V10 82405L16 

200 D1$="T180L8 S2CS1CC 

210 A2$ = "v14Q8>C&C2. DC&C2. D 

220 B2 $ = " R8A>A<A>A<A> A<AG4>G<G>G<G>G<G 

230 C2$ = "05L16R4AGAGAB>C4. R4C<B>C<B>CDE4 

240 D2 $ = " S2C4S 1 C4S2CR8S 1 CS2CC4S 1 C4S2CCS 1 

CS2C 

250 E2$="V10O5L16R4FEFEFGA4. R4AGAGAB>C4. 

260 A3$ = "E4. C4<A4>ED2. <DF 

270 B3$="F4>F<F>F<F>F<FG4>G<G>F1 6G1 6<G>G 

<G 

280 C3$ = "C4. <A4F4>C8<B2, 

290 D3 $ = " S2C4S 1 C4S2CR8S 1 CS2CC4S 1 C4S2CCS 1 

CC 

300 E3$ = "<A4. F4D4A8G2. 

310 A4$ = ">C&C2. D<B&B2. >D 

320 B4$="A4>A<A>A<A>A<AG4>G<G>G<G>G<G 

330 C4$=C2$ 

340 E4$=E2$ 

350 A5$="<A1GQ5AA2Q7 

360 85 $ = " F>F<F>F<F>F<FG4>G<G>F 1 6G 1 6<G>G< 

G>G< 

370 C5$="R8E1D8D8R8E&E8 

380 E5$ = "R8CKB8B8R8>C&C8 

390 A6$=">E4C4<A4>ED&D2&D4<B>C 

400 B6$="F>F<F>F<F>F<FG4>G<G>F16G16<G>G< 

G>G< 

410 C6$ = "L4EDC8ED. C<B8>C. 

420 E6$ = "L4C<AA8>C<B. AG8A. 

430 A7$="D2&DE4&Y1 6, 21 7Y32, 288W32Y1 6. 210 

8W32Y16, 2058W32Y16, 1948W32Y16. 1728W1 

440 BO$="G>G<G>G<G>G<G>A<A>A<A>Gl 6A1 6<A> 

A 

450 B7$=BOS+"<G>G< 

460 C7$ = "DC<B8>CE. DC8E. 

470 E7$ = "BAG8A>C. <AA8>C. 

480 A8$="E4C4<A4>ED&D2&D<BB>C 

490 B8$=BQ$+"<A>A< 

500 C8$ = "«AUA2B>A8<B8 

510 E8$ = "«F1&F2G>F8<G8 

520 A9$ = "D2. <G8&Y16, 1 36Y32. 288W16Y16, 140 

8W16Y16. 1458W1 

530 C9S="B1&B2>C>C8<C8 

540 E9$="G1&G2A>G8<A8 



550 AA$="<AA>E4EDC<B4BB>CDDC<B8 

560 BA$= "Q7FQ2FQ7FQ2F07FQ2FQ7FF4F02FQ7FF 

16>FI6<Q2FQ7FQ2F 

570 CAS="C1&C2D>C8<C8 

580 EAS="A1&A2B>A8<A8 

590 AB$="B4>G4GFED4E&Y16, 217Y32, 268W32Y1 

6, 2058W32Y16, I948W32Y16, 1828W32Y16. 1 728W 

4CCD 

600 BB $ = " Q7GQ2GQ7GQ2GQ7G02GQ7GG4G02GQ7GG 

16>G16<Q2GQ7GQ2G 

610 CB$="CI>C<BB-A> 

620 EB$ = "A1>A<GFE» 

630 AC$ = "DB&Y16. 698W32Y16. 516W32Y16, 348W 

32Y16. 178W32Y16, 1 78W32Y1 6. 28W4DDEDB&Y1 6. 

698W32Y16. 518W32Y16, 348W32Y16. 178W32Y16. 

178W32Y16. 28W6DDE 

640 BC $ = " Q7AQ2AQ7A02AQ7AQ2AQ7AA4A02A07AA 

16>A16<Q2AQ7AQ2A 

650 AD$ = "DB&Y16, 698W32Y16. 518W32Y16. 346W 

32Y16. 348W32Y16, 178W32Y16. 28W4DDEB4. Y16. 

172Y32. 288W16Y16, 69Y32. 278W16Y16. 34Y32, 2 

78W2 

660 BD$="Q7AQ2AQ7AQ2AQ7AQ2AQ7AA4>A<A->A- 

L 1 6<G>G<G->G-<F>F<E>E<L8 

670 BE$="V1 562503 Q2L 1 6A8AAA8AAA8AAA8AAA 

8AAA8AAA8Q5826 A>A<A>A<A>A<Q2 

680 BF$="825 03 L8Q2AA05826 >A<A>A-<A->G 

<G 825Q2AA16A16>05826 A<A>A-<A->G<G 

690 BG$= "GG>G<G 1 6>G 1 6<G>A<G>G<GG>G<G 1 6>A 

1 6<G>B<G>G< 

700 BH$="L16A8>A8A-AA-AA-AA-AA-AA-AA8G8E 

8A8A8G8E8A8< 

710 B0$="G8>G8G-GG-GG-GG-GG-GG-GG8G-8D8G 



720 BI$=BQ$+"G8G-8D8G8< 
730 BJ$=B0S+"L8GG-04" - 853FE 
740 AE$=BQ$+"GG-L806R8853D853F 
1000 " 

1010 PLAY#2. Al$, BIS, CIS, E1$. "", 
1020 PLAY#2. "R8DF", "". "". "". *", 
1030 PLAY#2. A2S, B2S.C2S. E2S.0S 
1040 PLAY#2, A3$. B3$. C3S. E3S. 0$, 
1050 PLAY#2, A4$, B4$. C4$. E4S, Q$, 
1060 PLAY#2, A5S.B5S, C5S, E5S.0S, 
1070 FOR J=1 TO 2 
1080 PLAY#2, "853 
1090 PLAY#2, A6$,B6$.C6$, E6S.0S 
1 100 PLAY#2. A7S. B7S. C7$. E7S. OS 
1110 PLAY82, A8$. B6S, C6$. E6$, OS 
1 120 PLAY#2. A9S, B7$. C7S. E7$. 0$ 
1130 PLAY#2. "821 Y0, 103 Y 1.205 
1 140 PLAY#2. AA$. BA$, C8$. E8S. Q$ 
1 150 PLAY#2. AB$, BB*. C9$. E9S. 0$ 
1 1 60 PLAY#2, ACS, BCS. CAS, EAS, 0$ 
1 1 70 PLAY#2. ADS. BDS. CBS. EBS. OS 
1 180 PLAY#2, "821 Y0. 100 Yl. 198 
1 1 90 PLAY#2. AAS, BAS. C8S. E8S. OS 
1200 PLAY#2, ABS. BBS, C9S. E9S, 0$ 
1210 PLAY#2, ACS, BCS. CAS. EAS. Q$ 
1 220 PLAY#2, ADS. BDS, CBS, EBS. Q$ 
1230 NEXT 

1240 PLAY#2. "812O1V10", ' 
1250 PLAY#2, BES, BES.BES. 
1260 PLAY#2. BFS. BFS. BFS. 
1270 PLAY#2, BFS, BFS, BFS, 
1280 PLAY#2, BGS, BGS, BGS. 
1 290 PLAY#2, BGS, BGS, BGS. " ". QJ 
1300 PLAY#2. "81 202V 10". "826". 
1310 PLAY#2. BHS, BHS. BHS. "".0J 
1320 PLAY#2, BHS.BHS, BHS. 
1330 PLAY#2, BIS. BIS, BIS, 
1340 PLAY#2. BIS. BIS, BIS. 
1350 PLAY#2. BHS. BHS. BHS, 
1360 PLAY#2. BHS, BHS. BHS. 
1370 PLAY#2. BIS, BIS, BIS. 
1380 PLAY#2. AES. BJS.BJS. 
1390 PLAY#2. " ". BIS, CIS. E1S. 
1400 GOTO 1030 



0$, 
0$, 
0$, 
0$, 



as, 
as. 
as. 
as. 
as. 
, as. 

, OS. 



D1S 

D2S. HIS 
D3S.H1S 
D2S. HIS 

D3S.H1S 



D2S, HIS 
D3S, HIS 
D2S.H1S 
D3S. HIS 

D2S 
D3S 
D2$ 
D3S 

D2S 
D3S 
D2S 

D3S 



D2S 
D3S 
D2S 
D3S 
D2S 
833 
D2S 
D3S 
D2S 
D3S 
D2S 
D3S 

D2S 
D2S 



UXK5 



00 CLEAR 1000. &HA000 

10 ' PCMON PCMOFF 

20 DEFUSR0=&HA000:DEFUSR1=&HA003 

30 BLOAD'PCM. BIN" 

40 BLOAD'SNEA. PCM" 

50 BLOAD" BSDRAM. PCM" 

60 A=USR0(0) 

70 LOAD"XAK. FM". R 

80 END 



105 



t&fcJR/TTR msx2+wp 







M * * * ^ 

6 7 8 9 10 
13 11 15 16 1? 
20 2 1 22 23 24 
27 28 29 30 31 



21/ A' 

22/7k 
23/* 

24/i 






1 *^^-f±T\ 1 H&/cUlCHi] 
MSX 2+l^ mMr—t^r^ 

h i^C^x-f 7. ? £ 1 &ffl^ L 

£_h<7)¥K<7) i o & * u > y—<n 

mffit/tmTFznzitttzo ::t 

LTl^„ Btt<7)|£:£6Nfr7!rL^ 
*§£■£, [ESC>-£ff-f EB-fo 
B#£i]<7)A7J#T*#6<7)T\ ^:t 

^li -5 lo T (i£(7)S!£#0S<7) 

^££11.^1 vtf^li, [F2>- 
*\ fcL<lJ[2]*-£*¥-t*m^ 



V JU* — <7)fc&T*fl| g <7)Sfit £J1 
iRT^o ^LT, *— Vfl4r *[" 

As, *ai*rtK* •/*->*-*■ 

¥-m$*ft-x^na&$X' mm 

-, is U >! L fc i ^t^-(i[FT]+- 
%£tf[F~4>-frff-fr^ t\, 
7*A X 2 (Zieii? ftfcl V7)T\ 7° 

[Fi&Hr- ( |shift| *-+[F~51* 
-) *trr j: -5 cut<*i» 

gJU; fcAttv U ;* h (7)2CWt<7) 

COLOR 5,15,15 
£1£ELT<&<M ££*.(£ 
COLOR 15,0,0 



»ft;Sr&*fc*'J& 



F1 



1 



m 



F3J, 



F4 



F5 , _5 



F6 . L6 



F7L, _7 



F8 , _8 



F10 



3A-X*- 



u$-y*- 



SELECT 



ESC 



a-VJMr- 



%%<n : f£.*5li>^-*> K 



*S")fS%I*3'> K t 



1 *s*«> ; F***v>y--«>!^ , e*afeT*. 



1 OT^ff)! 



I%ff#9, 



liOaiofSmfe. WIHrfffc^. 



S¥(7)^^<751 



Sfcfffc-5, 



SB<7)^^<7)^^- «*£*t£"7. 



1 HMOT^SttoSl^ fliMrfrflrf. 



ifi**?* *?CB#U yn^i«7T5. 



(=a*LS*n&:oS»rtS*afctvi:S(H 



KT\ A^L/crtSS-MiiT %„ 



afci^fla^irs. 



a#, ^sij%-a*t*c 



s-e-Sc 



: 


6 7 

13 14 


* t $ 

1 2 3 
8 9 18 
15 16 17 


WW * r i :>av 

i : ,o ,1 ,1 

■ : iv !8 n V£ 


. 4 5 

8 10 11 12 

16 i!. : !S 19 

. . a ■/■:. ■;:<■■ 

9 SO 


10/* 

ii/* 
i;'/i£ 




28 21 
27 28 


22 23 24 

29 38 31 


' !• 






»[E1 


*-4fl-Tfc, 


Hltetel- * L' > ?'— %-RtJsT -i>» 


• 00*T-$)i:f5ia< ti'i 


?Sfo!x^T-S-l>C7)/; 
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.^^^^^^^^^^^^^^^^^^^^^ 






zi ^D^^a'J^h ^ 


10 ' 

20 COLOR 5,15,15:KEY OFF:. KANJI:GOSUB 1830 




30 CLEAR 8500:GOSUB 2710:GOSUB 2560 




100 ' 




110 CLS-.GOSUB 1860:D = 10 




120 COLOR 2:LOCATE 25,0:PRINT USING "####^ ##£ ##0 (S)";NG;TG 


•KG;C$(YG) 


130 COLOR 5:GOSUB 1040 




140 ' 




150 J=l :GOSUB 2090 




160 LOCATE 30,2:PRINT "00 04 08 12 16 20 24 




170 FOR Q=1 TO 13 : IF T*3 1 + K> Q (Q) *3 1 + R (Q) THEN NEXT 




180 FOR Y=0 TO 6:I=K+Y: J=0:GOSUB 1150:COLOR C(C) 




190 LOCATE 24,3+Y:IF I)H THEN PRINT SPC(31):GOTO 240 




200 PRINT USING "##/§ §" ; I ; C$ (A) ; SPACES ( 24) ; 




210 A = A(I,J) :B = B(I, J) : IF A$(I,J) = "" THEN 240 




220 IF A AND B THEN LOCATE 3 1 + A¥60 : PRINT STRINGS ( (B-A ) ¥60 , "0 ") ; 




230 J=J+1 :IF J<> 10 THEN 210 




240 NEXT-.COLOR 5 




250 ' 




260 LOCATE 5,11:PRINT " B$ f§J ft3?":G0SUB 1880 




270 GOSUB 920:GOSUB 970 : I=K : R=0 : GOSUB 1150 




280 GOSUB 1970:LOCATE , 1 2 : X= 16 : Y= 1 : SP=44 : I=K : J=0 : GOSUB 1210 




290 D=Y:R=(Y=0)*(J<10)+ (R= 1 ) * ( ( Y> 0) + ( J = 1 0) ) * 2 : GOSUB 2000:PLAY P$ 


300 ' 




310 Z=USR(0) :INTERVAL ON 




320 A$=INKEY$:TF A$="" THEN 320 




330 A=ASC(A$) :S=ST1CK(0) 


INTERVAL OFF 




340 IF S THEN GOSUB 1900 


GOTO 140 




350 IF A=49 THEN PLAY Q$ 


S=7:G0SUB 1930:GOTO 130 




360 IF A=50 THEN PLAY Q$ 


S=3:G0SUB 1930:GOTO 130 




370 IF A=5l THEN PLAY Q$ 


GOSUB 2400:GOTO 100 




380 IF A)5I AND A<57 THEN PLAY Q$ : V= A -5 2 : GOSUB 450:IF V THEN 250 


ELSE 140 


390 IF A=48 THEN PLAY Q$ 


GOSUB 2470:GOSUB 2040:GOTO 250 




400 IF A=13 THEN PLAY Q$ 


V=0:A=49:JP=1:GOSUB 450:GOSUB 1860:GOTO 


140 


410 IF A=24 THEN PLAY Q$ 


V=5:G0SUB 770:IF F THEN 130 ELSE 140 




420 IF A=27 THEN PLAY Q$ 


V = 6:G0SUB 770-.GOTO 120 




430 IF A=32 AND R THEN PLAY Q$:ON R GOTO 280,270 




440 GOTO 300 




450 ' 




460 GOSUB 2120:E=Y+(Y=20+(V=0)*10) 




470 LOCATE 5,11:PRINT MID$ ( " ffl * t ft # ft % M IS " , V*4+ 1 , 4) ; " (7) =f Jg 


480 Z=USR(0) :F=0:P=1:C=0: J=0 




490 GOSUB 1970:IF JP THEN 540 




500 GOSUB 1890:LOCATE 0,12:GOSUB 660 : D= 10- ( J + ( J> 10) ♦ 10) 




510 R=-(Y> 10)+J/11 :GOSUB 2000:IF Y THEN 630 ELSE 650 




520 A$=INKEY$:IF A$="" THEN 520 




530 A=ASC(A$) :S=STICK (0) 




540 IF A = 49 OR A = 1 3 THEN PLAY Q$:JP = 0:IF Y= 20+ (V=0) • 10 THEN GOSUB 2020:GOTO 450 


ELSE T$="":GOSUB 2190:GOSUB 1360:GOTO 450 




550 IF A=50 THEN PLAY Q$:iF Y THEN Y=F:GOSUB 1360:GOTO 450 




560 IF A=5I THEN PLAY Q$:IF Y THEN Y=F : T$= "": GOSUB 1680 : D=0 : GOTO 


450 


570 IF A=52 OR A=32 THEN PLAY Q$ : H=FNH (N , T) : GOSUB 1860:RETURN 




580 IF (S=3 OR S=7) AND V=0 THEN GOSUB 1 900 : J= 1 : GOSUB 2090:GOSUB 


1880:GOTO 450 


590 IF S<>1 AND S<>5 OR Y=0 THEN 520 




600 LOCATE 14,12+Y1:PRINT " " : F=F+ (S=l ) - (S=5) 




610 IF (F=-l OR F=10) AND P AND Y>10 THEN J= 1 : P=0 : GOTO 490 




620 IF (F= 9 OR F= Y) AND P=0 THEN J= 0:P=1:GOTO 490 




630 F=F-((F=-1)-(F=Y))«Y:Y1=F+(F>9)»10 





107 



640 LOCATE 14 , 1 2+Y1 : PRINT "=> 






650 PLAY P$:GOTO 520 






660 ' 






670 IF V=0 THEN X = 1 6 : I = K : J = : GOSUB 1 280 : Y=J :RETURN 






680 IF J=Y+(Y>10)»(Y-10)»P OR C THEN RETURN 






690 ON V GOSUB 700 , 740 , 750 , 760 : J = J + 1 : GOTO 680 






700 Z=(FNK(N(J),L(J))+0(J))-(FNK(NG,TG)+KG) 






710 PRINT USING "##JJ # *£ # # £ ## B 8" ; N (J) ; L ( J) ; (J) ; N$ ( J) ; : IF C 


rHEN RETURN 




720 LOCATE 49:IF Z = THEN PRINT " te 4* B "C "9" ": RETURN 






730 PRINT USING "§##### B "; MID$ ( " & X* ft> h ",- (Z <0) *4 + 1 , 4) ; ABS (Z) 


:RETURN 




740 PRINT USING " ##£Jf#B 8" ; T ( J) ; U ( J) , T$ ( J) : RETURN 






750 PRINT USING " MB 8" ; H ( J) ; H$ ( J) : RETURN 






760 PRINT USING " 1 M B &&«B 8" ; S ( J) ; C$ (Y ( J) ) ; S$ ( J) : RETURN 






770 ' 






780 GOSUB 1970:LOCATE 0,13:IF V=6 THEN 800 






790 PRINT "M^ M n ® B £ IS* L t -t *»":GOTO 810 






800 PRINT "Bit ■ B*ISI0>A3J 






810 PRINT USING "#### *f ## H #* B " ; NG ; TG ; KG : X=0 






820 IF V = 6 THEN GET TIME S$ : S$ = LEFT$ (S$ , 5) : T$ = S$ : LOCATE 2:PRINT 


S$ 




830 D(0)=NG:D(1)=TG:D(2)=KG:GOSUB 1430 






840 F=0:D=5:IF D(0)<>N OR D(1)<)T THEN F=l:GOSUB 2510 ELSE J=0: 


GOSUB 2090 




850 N = D(0) : T = D ( 1 ) :K = D(2) :IF V = 5 THEN 900 






860 NG = N:TG = T:KG = K :YG=(FNU + K) MOD 7 : D$ = MID$ (STR$ (NG) , 4) + " / " 






870 D$=n$+RIGHT$("0"+MID$(STR$(TG),2),2)+"/" 






880 D$=D$+RIGHT$("0"+MID$(STR$(KG),2),2) 






890 SET DATE D$:TF S$ <) T$ THEN SET TIME T$+":00" 






900 IF F THEN GOSUB 2600 






910 RETURN 






920 ' 






930 FOR Q=l TO 13: IF T)Q(Q) THEN NEXT:Q=Q-1 






940 FOR G=0 TO 19:1 F N*365+T> N (G) *365+L (G) THEN NEXT:G=G-1 






950 FOR L=0 TO 19:1F T>T(L) THEN NEXT:L=L-1 






960 O=0:M=0:RETURN 






970 ' 






980 FOR Q = Q TO 13 : IF K)R(Q) THEN NEXT 






990 FOR G=G TO 19 : IF K)O(G) THEN NEXT 






1000 FOR L=L TO 1 9 : IF K)U(L) THEN NEXT 






1010 FOR 0=0 TO 19 : IF K)H(O) THEN NEXT 






1020 FOR M = TO 1 9 : 1 F K> S (M) »7 + Y (M) THEN NEXT 






1030 RETURN 






1040 ' 






1050 GOSUB 920:1F W THEN _CLS:GOTO 1070 






1060 FOR 1=0 TO 5:L0CATE 0,4+I:PRINT SPC(22):NEXT 






1070 H=FNH(N,T) :U=FNU 






1080 LOCATE 4,2-W»2:PRINT USING "####^ *#.^";N;T 






1090 FOR 1=0 TO 6:C0L0R C(I):LOCATE 1 + I* ( 3 + W* 8 ) , 3- V : PRINT C$(I) 


:NEXT 




1100 FOR [=1 TO H:GOSUB 1150 






1110 COLOR C(C) :X=1 + A*(3 + W*8) 






1120 LOCATE X, ((U=6)+(I+U)¥7)*(W*2+1)+4:PRINT USING "##";I 






1130 IF W THEN Y = 2: J = 0:GOSUB 1210 






1 140 NEXT:COLOR 5:RETURN 






1150 ' 






1160 A=(I+U) MOD ?:C=A:P=0 






1170 IF T=Q(Q) AND I=R(Q) THEN C=0 : P= 1 : F=Q : Q=Q+ 1 






1180 IF T = Q(Q-1) AND (I- 1) =R (Q-l ) AND A = l THEN C = 0:P = 1:F = 






1190 IF I=KG AND N=NG AND T=TG THEN C=7 






1200 RETURN 






1210 ' 






1220 IF P THEN LOCATE X:PRINT LEFTS (Q$ (F) , SP) : Y=Y- 1 






1230 IF Y AND N=N(G) AND T=L(G) AND I=0(G) THEN LOCATE X:PRINT 


LEFT$(N$(G) ,SP) 


:G 


= G + 1 :Y = Y-1 :GOTO 1230 






1240 IF Y AND T=T(L) AND I=U(L) THEN LOCATE X:PRINT LEFT$(T$(L) 


,SP) :L=L+1 :Y=Y- 


1: 


GOTO 1240 
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1250 
1260 
1 :Y = Y 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

;B¥60 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

V = 4) 

1500 

1510 

1520 

1530 

1540 

1550 

1570 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

60 TH 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 



IF Y AND 1=H(0) THEN LOCATE X:PRINT LEFTS (H$ (0 ), SP ): 0=0+ 1 : Y=Y- 1 : GOTO 1250 
IF Y AND S (M) = (I- 1 ) ¥7+ 1 AND Y(M)=A THEN LOCATE X:PRINT LEFTS (S$ (M) , SP ): M=M+ 
-1:G0T0 1260 

IF Y=0 THEN 1350 

A = A(I, J) :B = B(I,J) :IF A$(I,J) = "" THEN 1350 

IF W THEN 1330 

IF A THEN PRINT USING " ##:##-"; A¥60 ; A MOD 60; 

IF B THEN PRINT USING "##:## ";B¥60;B MOD 60; 

LOCATE X:PRINT LEFTS ( A$ (I , J) , SP) 

Y = Y-1 : J = J+1 :GOTO 1280 

RETURN 

GOSUB 1970:LOCATE 0,23:PRINT SPC (60) : LOCATE 0,14 

IF V=0 THEN A=A(K,Y) :B=B(K,Y) :PRINT USING " ##:##-##:*# S";A¥60;A MOD 60 

;B MOD 60; A$(K,Y) 

J=Y:C=1:IF V THEN GOSUB 690 

LOCATE 15,14:PRINT "C":LOCATE 16:PRINT STRINGS (44+ (V = 1 ) * 1 2 , 94) 

IF V = 4 THEN FOR 1 = TO 6:PRINT I + 1 ; " = " ; C$ ( I ) ; " ";:NEXT 

GOSUB 2250:X=XB(V)+(V=4)*2:PLAY P$ 



GOSU 
E$ = " 
LOCA 
IF A 
IF S 
IF A 
THEN 
IF A 
IF A 
IF I 
E$ = E 
IF ( 
IF X 



B 1 
":Z 
TE 
= 32 

TH 
= 13 

16 
= 8 
<47 
= 
$ + A 
X = 3 
= 



730 
= US 
X1 + 

AN 
EN 

TH 
70 
AND 

OR 
AND 
$:I 

OR 
AND 



R(0) :I=0 

I,Y1:A$=INPUT$(1):A=ASC(A$):S=STICK(0) 

D X=5 THEN PLAY P$:LOCATE 16,14:LINE INPUT 

PLAY P$:GOSUB 1710:GOTO 1450 

EN PLAY Q$:IF E$<>"" THEN 1570 ELSE S=3:G0S 

I THEN 1=1-1 :E$=LEFT$(E$,I) :LOCATE X1+I,Y1 
A)58 THEN 1460 

V<)4 THEN LOCATE X1,Y1:PRINT SPC ( l~ (X=0) • 2 
= I + 1:L0CATE XI , Yl : IF X<>7 THEN PRINT E$ ELS 
X=4) AND 1=2 THEN E$=E$+ " : " : 1=3 
1=4 OR (X=l OR X=2) AND 1=2 OR (X=3 OR X=4 



GOTO 1460 



PLAY 
IF Z < 

IF Z< 
IF Z( 
A = VAL 
EN 14 



IF 
IF 
IF 
IF 



X = 
D< 
Z< 
Z< 



Q$: Z 

1950 

1 

I 

(LEF 

50 

3 TH 

3))S 

1 OR 

1 OR 



=VAL(E$):ON X GOTO 1600,1610,1620,1 
OR Z)2049 THEN 1450 ELSE D(X)=Z:X= 
OR Z> 1 2 THEN 1450 ELSE D(X)=Z:X= 
OR Z)H THEN 1450 ELSE D(X)=Z:X= 

T$(E$, 2) ) : B=VAL(MID$(E$,4)):S=A«60+ 

EN IF V=6 THEN T$=E$:RETURN ELSE D( 

THEN 1450 ELSE D (X) =S : X = 5 : GOTO 

Z>5 THEN 1450 ELSE D (X) =Z : X = 7 : GOTO 

Z)7 THEN 1450 ELSE PRINT C$(Z-1):D 



620, ,1 
1 :GOSU 
2:G0SU 
3: IF V 
B : I F S 



650 
B 1 
B 1 
= 5 
<0 



TSrPLAY Q$:GOTO 1680 

UB 1710: IF X=XA(V)+l-( 

:PRINT " " 

) 

E 1570 

) AND 1=5 OR X=6 THEN 



,1660 

800:GOTO 1430" 

800:GOTO 1430 

THEN RETURN ELSE 1430 

OR S> 1440 OR B<0 OR B) 



X)=S:X 
1430 
1430 

(X)=Z- 



=4:G0T0 1430 
1:X=8:G0T0 1430 



IF V)4 THEN RETURN 
T$=LEFT$(T$,44+(V=1)*12):IF T$=" 
GOSUB 2250:GOSUB 23 20 : D=5 : RETURN 



THEN FOR 1 = TO 6 : D ( I ) =0 : NEXT 



X=X-(S=3)+(S=7) 

IF X=XA(V) THEN X=XB(V)-1 

IF X=XB(V) THEN X=XA(V)+1 

IF X=3 AND V THEN IF V<)6 THEN X=5 

IF X=4 AND V THEN X=2 

X1=-(X=1)*6-(X=2)*10-(X=3)*2-(X=4)*8-(X=5)*15-(X=6)-(X=7)*8 

Y1=14+(X=3)*(V=6) 

RETURN 

H = FNH(D(0) ,D(1)) :IF D(2))H THEN D ( 2) =H : LOCA TE 10,14:PRINT USING "#r';H 
RETURN 
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1830 


i 


1840 


_ KANJ12:SET AD JUST (-5 , 3) : WIDTH 61:RETURN 


1850 


_ KANJI3:SET ADJUST( 5,3):RETURN 


1860 


• 


1870 


LOCATE 0,23:PR1NT " % ft &ft ft& H El &t fc ¥ ft ft S 151 


HT" 


; :RETURN 


1880 


LOCATE 36,11: PRINT USING "#### *M# Ji ## B (i) " ; N ; T ; K ; C$ ( (U+K) MOD 7):RETURN 


1890 


LOCATE 0,23:PRINT " S ft &W JR M m h " ; SPC (38) : RETURN 


1900 


' 


1910 


PLAY Q$:J=0:GOSUB 2090 


1920 


K = K-(S = 3) + (S = 7) + ((S=1)-(S = 5)W:K = K + (K<1)*(K-H) + (K>H)*(K-1) -.RETURN 


1930 


' 


1940 


GOSUB 2510:T=T-(S=3)+(S=7):N=N+(S=1)-(S=5) 


1950 


N=N+(T=0)-(T=13) : N=N-((N= 1949) -(N=2050))* 100 


1960 


T=T-((T=0)-(T=13))»12:GOSUB 2600: RETURN 


1970 


' 


1980 


IF D<10 THEN FOR 1=0 TO 9-D:L0CATB 0,I+12:PRINT SPC(60):NEXT 


1990 


RETURN 


2000 


' 


2010 


LOCATE 54,22:PRINT MID$(" T A " , R*2+ 1 , 2) : RETURN 


2020 


' 


2030 


GOSUB 1970:LOCATE 0,14:PRINT " Z fl & ± s S ft ft 5fc £ it ^ " : GOTO 2050 


2040 


GOSUB 1970: LOCATE 0,14: PRINT " S A V E L £ L tz „ U H" & B* it s 


2050 


D = 5:PRINT "X^-X • ^-£#LTT§V> ! 


2060 


IF STRIG(0)=0 THEN 2060 ELSE PLAY Q$:RETURN 


2070 


' 


2080 


GET TIME T$:LOCATE 50,0:PRINT T$:RETURN 


2090 


1 


2100 


A = U + R:LOCATE (A MOD 7) * 3 , 4 + A¥7+ (U=-6) 


2110 


PRINT CHR$(3 2+J*8) ;CHR$(28) ;CHR$(28) ;CHR$(3 2+J*9) :RETURN 


2120 


' 


2130 


IF .V=0 THEN FOR Y=0 TO 9:IF A$(K,Y)<)"" THEN NEXT 


2140 


IF V=l THEN FOR Y=0 TO 19:IF N(Y) THEN NEXT 


2150 


IF V=2 THEN FOR Y=0 TO 19:IF T(Y) THEN NEXT 


2160 


IF V=3 THEN FOR Y=0 TO 19:IF H(Y) THEN NEXT 


2170 


IF V=4 THEN FOR Y=0 TO 19:IF S(Y) THEN NEXT 


2180 


RETURN 


2190 


' 


2200 


IF V=l THEN N(Y)=N:L(Y)=T:0(Y)=K 


2210 


IF V=2 THEN T(Y)=T:U(Y)=K 


2 2 20 


IF V=3 THEN H(Y)=K 


2230 


IF V=4 THEN S(Y)=(K-1)¥7+1:Y(Y)=(K+U) MOD 7 


2240 


RETURN 


2250 


' 


2260 


IF V = THEN SWAP A (K , Y) , D ( 3 ) : SWAP B (K , Y) , D (4) : SWAP A$(K,Y),T$ 


2270 


IF V=l THEN SWAP N ( Y) , D (0) : SWAP L ( Y) , D ( 1 ) : SWAP (Y) , D ( 2) : SWAP N$(Y),T$ 


2280 


IF V = 2 THEN SWAP T ( Y) , D ( 1 ) : SWAP U (Y) , D ( 2) : SWAP T$(Y),T$ 


2290 


IF V = 3 THEN SWAP H ( Y) , D ( 2) : SWAP H$(Y),T$ 


2300 


IF V = 4 THEN SWAP S ( Y) ; D (6) : SWAP Y (Y) , D (7) : SWAP S$(Y),T$ 


2310 


RETURN 


23 20 


' 


2330 


FOR 1=0 TO E-l:FOR J=I+1 TO E 


2340 


IF V = THEN IF A$(R,I) = "" OR A$(K,J)0"" AND A (K , I ) > A (K , J) THEN SWAP A(K,I) 


,A(K, 


J):SWAP B(K,I) ,B(K,J) :SWAP A$ (K , I) , A$ (K , J) 


2350 


IF V = l THEN IF N$(I) = "° OR N$(J)<>"" AND N (I ) * 365 + L (I ) *3 1 +0 (I) ) N ( J) • 365 + L ( J 


)*31< 


0(J) THEN SWAP N(I) ,N(J) :SWAP L (I) , L( J) : SWAP (I) , ( J) : SWAP N$(I),N$(J) 


2360 


IF V = 2 THEN IF T$(I) = "" OR T$(J)<)" n AND T (I ) • 3 1 +U ( I ) > T ( J) *3 1 +U ( J) THEN SWA 


P T(I) ,T(J) :SWAP U(I) ,U(J) :SWAP T$(I),T$(J) 


2370 


IF V = 3 THEN IF H$(I) = "" OR H$(J)<)"" AND H(I)>H(J) THEN SWAP H (I) , H ( J) : SWAP 


H$(I) ,H$(J) 


2380 


IF V = 4 THEN IF S$(I) = "" OR S$(J)<>"" AND S (I ) *7 + Y ( I) > S ( J) *7 + Y ( J) THEN SWAP 


S(I), 


S(J):SWAP Y(I) ,Y(J) :SWAP S$(I),S$(J) 


2390 


NEXT:NEXT:RETURN 
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2400 ' 

2410 GOSUB 1850:W=1:SP=10:GOTO 2450 

2420 IF STRIG(0) THEN PLAY Q$:W=0:GOSUB 1830:RETURN 

2430 S=STICK(0) :IF (S MOD 2)=0 THEN 2420 

2440 PLAY Q$:GOSUB 1930 

2450 GOSUB 1040:LOCATE 60,20:PRINT "ffi^":LOCATE 55:PRINT " % ft { + > 3fc ft 

2460 LOCATE 60:PRINT " 3fc ^ SPC=^£":PLAY P$:GOTO 2420 

2470 ' 

2480 OPEN "SE" FOR OUTPUT AS#1 

2490 FOR 1=0 TO 19:PRINT #1, T$(I) "," T(I),U(I) "," H$(I) ","H(I) "," S$(I) ", 

" S(I),Y(I) "," N$(I) "," N(I),L(I),0(I):NEXT 

2500 CLOSE #1 

2510 ' 

2520 A=l:FOR 1=1 TO 31:IF A$(I,0)=" n THEN NEXT : A=0 : RETURN 

2530 OPEN "S"+RIGHT$(STR$(N) , 4) + " . "+HEX$ (T) FOR OUTPUT AS#1 

2540 FOR 1 = 1 TO 31:FOR J = TO 9:PRINT #1, A$(I,J) "," A (I , J) ; B (1 , J) : NEXT : NEXT 

2550 CLOSE #1 :RETURN 

2560 ' 

2570 S=0:OPEN "SE" FOR INPUT AS#1 

2580 FOR 1 = TO 19:INPUT #1, T$ ( I ) , T ( I ) , U (I ) , H$(1),H(I), S$ (I) , S (I ) , Y (I) , N$(I) 

,N(I) ,L(I) ,0(1) :NEXT 

2590 CLOSE #1 

2600 ' 

2610 S=1:0PEN "S" +RIGH T$ (STR$ (N) , 4) + " . "+HEX$ (T) FOR INPUT ASjfl 

2620 IF S THEN FOR 1 = 1 TO 31:F0R J = TO 9:INPUT # 1 , A$ ( I , J) , A ( I , J) , B ( I , J) : NEXT : NE 

XT 

2630 CLOSE #1 rRETURN 

2640 ' 

2650 E=ERR:LOCATE 0,14:IF NOT (E=68 OR E=53 OR E=14) THEN ON ERROR GOTO 

2660 IF E = 68 THEN GOSUB 1970:PRINT " * § & # gg ± fc & ^ X V> & + " :QOSUB 2050:RESUH 

E 100 

26 70 IF E=14 THEN GOSUB 1970: PRINT " * ^ \) tf fa < ft £ L fc " : PRINT " g h ft W f % 

£M*) i U T J ^ . ":GOSUB 2050:RESUME 100 

2680 CLOSE #1:IF S=0 THEN RESUME 100 

2690 IF A THEN FOR 1=1 TO 31:F0R J=0 TO 9 : A ( I , J) =0 : B (1 , J) =0 : A$ ( I , J) = " " : NEXT : NEXT 

2700 S=0:RESUME NEXT 

2710 ' 

2720 UEFINT A-Y:UEF USR=&H156 

2730 DIM Q(14),R(14),Q$(14), N ( 20) , L ( 20) , ( 20) , N$ ( 20) 

2740 DIM T(20) ,U(20) ,T$(20), H (20) , H$ (20) , S ( 20) , Y ( 20) , S$ ( 20) 

2750 DIM A(31,9),B(31,9),A$(31,9), C(7),C$(7), D(7), XA(6),XB(6) 

2760 ON INTERVAL=60 GOSUB 2070:ON ERROR GOTO 2640 

2770 FOR I=t TO 10:KEY I , CHR$ (48 + I + ( 1 = 1 0) * 1 0) : NEXT 

2780 P $ = " V 1 205E64":Q$ = "V1205A64":T$ = "" 

2790 GET DATE A$ : NG = V A L ( A$) : NG= 1 900 + NG- (NG (50) • 1 00 

2800 TG=VAL(MID$(A$,4,2)):KG=VAL(MID$(A$,7)) 

2810 N=NG:T=TG:R=KG 

2820 DEF FNH(N,T)=30+(T=2)»(2+((N MOD 4) =0) ) + (T- (T> 7) ) MOD 2 

2830 DEF FNK(N,T) = (N-1990)*365+(N-1989)¥4+(N>2000) +INT ( (T- 1 ) »30 . 5- (T (10) • . 5- (T) 

8)) +(T)2)»(2+((N MOD 4)=0)) 

2840 DEF FNU=ABS(FNK(N,T) MOD 7) 

2850 YG=(FNU+K) MOD 7 

2860 ' 

2870 FOR 1=0 TO 

2880 FOR 1=0 TO 

2890 FOR 1=0 TO 13:READ 

2900 ' 

2910 DATA 2,6, -1,6, 0,6, 1,6, 4,8, -1,3, -1,4 

2920 DATA 8 , B , 1 , ft , 1 , 'X , 1 , *, 1 , * , 1 , & , 7 , ± , 2 

2930 DATA 0,0,*g#ftc0, 1 , 1 , yt B , 1 , 1 5 , j£ A O B 

4,29, # £ 9 tf> B 
2940 DATA 5 , 3 , * & IS & B , 5 , 4 , ffl K <7) ft B , 5,5, 



READ XA(I) ,XB(I) :NEXT 
READ C(I) ,C$(I) :NEXT 

Q(I), R(I) ,Q$(I) :NEXT:RETURN 



2 , 1 1 » m m m & 



HUB, 9,15, 
ftftOB, 10,10, f^W^ B, 11, 23, »#»»*> B. 12,23,3^Mg£B 



3,20, ##<0 B . 
%0) B , 9,23, 
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K7D?5/fA0X 





^) ft ® 







Rolling Stone 



Sf^75aB76^-yi. 



U X h 



100 ' save"ro 1 -set 1 . bas " 

1 1 CLEAR 100. &HCCFF : DEF I NT A-Y : ST=0 

120 -TURBOONCST) 

130 'Make Machine Language Data 

1 40 SUM=0 : L=380 : FOR I =&HCD00TO&HCEDFSTEP3 
2 : READAS : FORJ=0TO3 1 

150 D=VAL<"8=h"+MIDS(AS, J*2 + l . 2 ) > : POKEI+J 

, D : SUM=SUM+D : NEXT J : READAS 

160 IFVAL("&h"+AS)OSUMTHENPRINT"Error i 
n"L: BEEP: ST=1 : GOTO380ELSEL=L+10 : NEXT1 

170 'Make Turn Table 

180 SCREEN5:FORI=0TO3:SETPAGE, I :CLS:NEXT 

I : SETPAGE 1,1: CLS : SETPAGE , 

180 AO=&H8000:FOR 1=0 TO 127 : ZS=SIIK 3 . 14 

159*I/64):ZC=SINC3. 14159*< l+32)/64) 

200 FOR Y=-120TO96STEP24:FORX=-120TO96ST 

EP24 

2 10 U=( X+ 1 2 >*ZC-C Y+ 1 2 )*ZS+ 1 23 : V=C X+ 1 2 >*Z 

S+CY+12>*ZC+102 

220 IF U<15 OR U>229 OR V<-20 OR V>200 T 

HEN V=2 16 

230 VPOKE AD,V:VPOKE AD+1 , U: AD=AD+2 : NEXT 

X.Y.I 
240 'Make Sprite Pattern Data 
250 SCREEN 2 : POKE&HFAFC, 12 

2G0 FOR NN=0 TO 15 : CLS: READAS: FORM=0TO20 
STEP2 : GOSUB360 : AD=5 1 4+M¥2-248*C M> 1 > 
270 VPOKEAD , A : VPOKEAD+8 . B : VPOKE&H2000+AD 

, &HF0 : VPOKE&H2008+AD . &HF0 : NEXTM 

280 FOR R=0 TO -127 STEP -1 : N=-5 12*R+NN* 

32-1 

290 ZS=SINC3. 14159*R/64):ZC=SIN<3. 14159* 

CR+325/64) 

300 FOR I =-7T08 : FORJ=-7T08 : X=J*ZC- 1 *ZS+7 : 

Y=J*ZS+I*ZC+8 

310 IF X<0 OR Y<0 OR POINTCX, 16+YK>15 T 

HEN PRESETCJ+7. 1+7) ELSE PSETC J+7 , 1+7 ) 

320 NEXT J, I :FORI=0TO1 :FORJ=0TO1 :FORK=0TO 

7 : V=VPEEKC K+J*256+ 1 *8 ) : SETPAGE , 2 : 11=11+ 1 

330 VPOKEN, V: SETPAGE. 0:NEXTK, J, I ,R,NN 

340 FOR I =&H7 A00TO&H7A5F : VPOKE 1.0: NEXT I : F 

OR I =0TO2 : AD=&H7 A02+ I *32 : READAS 



350 FORY=0TO 1 : M=Y*2 : GOSUB360 : VPOKEAD+Y . 

A:VPOKEAD+16+Y.B:NEXTY. I :GOTO380 

360 'sub 

370 A=ASC<MIDSCA$,M+1 . 1 > >-63 : B=C ASCCMI DS 

< AS . M+2 . 1 ) 5-63 5*8 : RETURN 

380 'Save Turn Data and Sprite Data 

390 -TURBOOFF 

400 IFST=1THENEND 

410 BSAVE"rol-s P r2. vrm" , &H7A00 . &H7A5F, S 

420 SCREEN5:BSAVE"rol-turn. vrm" . &H8000 , & 

HE500.S 

430 SETPAGE2.2:BSAVE"rol-sprl . vrm",0,&HF 

FFE.S 

440 BSAVE"r o 1 -mac -bin", &HCD00 , &HCEDF 

450 'Machine Language Data 

460 DATAF32 10076222FD0AF322DD03C322ED0FD 

2A04D0DD2A02D01 1 3 1 D0060AC5FDE5E 1 .0E73 

470 DATA0600CDC7CE060AEBEDB2EB0 14000FD09 

C10520E8DDE5E10600CDC7CE08C82 130, 1D9F 

480 DATAD1EDB2FD2 131D0DD2 130D10664C5DD7E 

005FDD23FED8CA78CDDD5600FD7E00FE.2FA7 

490 DATAFF200BCD17CEED532BD0AFFD7700B7CA 

78CDCD17CECD25CEDD23FD23C105C24D.410E 

500 DATACD3A2BD0FED8CAC4CD3A09D03C3C3209 

D0473A2BD080322BD0FEBFDAA5CD3ED8.521F 

5 10 DATA322BD0181F3A08D0473A2CD080322CD0 

FE20DA9ECDFEE9D29ECDED5B2BD03A0A , 6 1 CE 

520 DATAD0CD25CE3A2ED0B72803CD9CCE1 13 1D0 

FD2A04D0060AC5FDE5E10600CDD1CE06.7 1CC 

530 DATA0AEBEDB3EB0 14000FD09C10520E83A00 

D0672E000604CDC7CE06FF2 13 1 D0EDB2 , 8032 

540 DATA05EDB22100780600CDD1CE06FF2 131D0 

EDB305EDB3FBC93DF53A07D0835F3A06 , 8F76 

550 DATAD08257F1C9F52A2FD00603CDD1CE7BED 

79F1F5ED5 10707ED7921 00743 A2DD007.9FB5 

560 DATA0707E6F8CB274F3E00CE004709F1E521 

0BD04F0600097EE1F50600CDD1CEF1ED.AE12 

570 DATA79ED79ED79ED79ED79ED79ED79ED79ED 

79ED79ED79ED79ED79ED79ED79ED792A.C3AF 

580 DATA2FD0232323233A2DD03CFE203807AF32 

2ED02 10076322DD0222FD0C92A2FD006 , CEC8 

590 DATA00CDD1CE3ED8ED79C93A07004F0CAFED 

793EADED797C0707E603B0ED793E8EED.DEBD 

600 DATA79ED697CE63FC9CDA9CEED793A06004F 

C9CDA9CEF640ED793A07004FC9000000 , EE3 1 

610 'Sprite Data 

620 DATA~^_® ,/v f" v f'"n' v n~n"' s n' , n" s ~^,~~wFzVzVb 

Pn¥vZzV ! N }~~'\ ~ A IN \ Nz®v¥n¥v¥z® i N}N*"- , ~" } 

^ ! NzVvZn¥bPzVzVwF~' s . ~-^C ^ ! N" VnZn¥nZ - V 1 N{ - 

~^ , — "~B }®{ ®{ BwFw-^r ■^b'""- . vZgD CMm¥f XbPf X 

m¥CMgDvZ,~~~®~®~Xz®z®_XzXz®~® ,~~~®~®~F 

zBz®_X.zX.z®~B~'\~'*-wFrBpB}Ft:N{N~' , {N{N~- 

630 DATA~N}~XRv~ I V ! LC D zNrVv^v'- , ~ — ®~®~X~ 

®~®_X~X~®~®~ /V , ??????~^~^~^~' 1 ~''??77?7 , FWF 



Rolling Stone 

Tiny Formula 
P- PRESSURE 

RESQ 



WFWFWFUIFWFWFUFWFWFW , vLvL 1 T i U i Y j I ZLZTUTsT 
sT , vZgD CMm¥f XbPf Xm¥ CMgDvZ , BOKKRQVYn¥n¥n¥ 
VYRQKKBO . BOKKRQVYn¥n¥n¥VYRQKKBO . BGFSFSNY 
NYNYNYNYFSFSBG 



h e 



10 ' save'Vo 1 -set2 . bas 

20 'Make Stage Data 

30 SCREENS : SETPAGE0 : DEF I NTA-Z : FORS= 1 TO 1 1 

40 _TURBOON 

50 READEX , EY : X=0 : Y=5 : B=&HF 1 40 : FOR I =0TO3 : 

READA : VPOKE&HEFFF- 1 . A : NEXT I 

60 READAS : FORM= 1 TOLEN< AS ) : A=ASC< M 1 DSC AS . 

M, 1 >>-63: IFA<32THENL=ASCCMID$CA$,M+1 , 1)) 

-63 : M=M+ 1 ELSE I FA<97THENL=0 : A=A-32ELSEL=A 

-98:A=0 

70 VPOKEB,A:X=X+l : B=B+ 1 : IFX>EXTHENFORB=B 

T0B+62-EX : VPOKEB . : NEXTB : X=0 : Y=Y+ 1 

80 L=L-1 : IFL>=0THEN70ELSEIFY>EYTHENM=300 

: FORB=BTO&HFFFE : VPOKEB . : NEXTB 

90 NEXTM: IFMO00THEN60 

100 -TURBOOFF 

1 10 BSAYE"rol-st"+RIGHT$(STR$CS+100).2>+ 

" . vrm" . &HEFFC . &HFFFE , S : NEXTS 

130 'Stage Data 

150 DATA 23, 16, 15,7, 19,0. 'E®'. ' A®'B®" AF' 

c r c~ 'R8.R9' R®~ R®'c r c-arjr'r=3r'c r c-a r b r 'T 

r®8 r ' - a r b r ' =3R®8® r ' - • r • r • rAAQBc r ' BB ' r ' r ' r 

• R8bcr-<r ' r ' R8- rbcR8=?R®' r ®BAA r b ' C®9®B@®®B 

8' rt>rb* ' R®pR®b* ' C®" BD9A 

160 DATA 37,21 , 14, 14, 9 , 96 , NNAANGb?d9bt>do 

r=?rpr- i • b-sdf R®n*rb-sn r dNFAAn jb=9R®Nl r rdm j 

b- RSno ' je- n r rdor r rjronorob- R®n r ' ° r= e- n jd 

^a jn jn jRSriTe- no r. n jNB jn jn r R®n : ?ro e« n jti jc r 

n _m j n» R®n- ' je- njri.r- nr r n.r. nRSn j i r '.r.e- 

njn=3nr r njdrn7'je- n jnCANBb r n jdn< ' = r 

170 DATA oe- n jcR®<n jdji r i r ' je- nor- r- ro n» 

r* 'oroe- nana" je- nCANFBAnDANQ 

180 DATA 17,41 ,20, 12, 10.0, jSC-SCj'rgr' • " 

rgr'j'j'' ' J* J * J* ■ ' j ' j ' j ' • 'j'j' jAE j ' j ' a ' j 

'a' j' a' j' jaB®"D@aj' j'j'- "j'j 1 j'.RA. 'j'j' 

o go no RAo noko'j'jn-nj'j' jnaNAan j ' jd jn- n jb 

jdor-srobjdororobj' jn JCn j'j'jn-nj'j'jn-nj 

' j' o go no RAo no go ' j'CAn.OAo nCA'7boRA 

190 DATA o 'EA'Tb r r r '.r.c7b. ' jc"AA®Ab- ' . r- 

.c't'jc't'.r.c'.n' jc'RAA®®BBA'oroc'RA' I 

9.r.r.r.c' RAQHoro 'd.r3'd r r.r.r.r.r.r.ro ' 

d-®CDA®ADA'CA" 

200 DATA 31 ,35,25,6, 12,0,a' AA'tJ' j'f j"9' 

j '*»' j ' *)' j ' *®Dx" j ' x ' ■ ' xa jao ' jr» hbxa ja-< ' o R 

So r. jb®IgK®'D®®BA® r R®orohbdRBgT'dr r rkf®A 

AA'dr r rg- RA7adr r r ' d r d ' KA ' D89D- RAadr r r '- ' 
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kf k'qRCmoa- RAadr r r '- ' kf k ' qrhRAm r a jRAadhR 

A - OB ' EA • q RCm j a ■ ® Ad 'd'd'd'pjp'b'b' 

210 DATA b'- '- 'dTb- 'djg?gjb- 'd*bor r 9®jFQ 

jb- S®- rorir«ririr«riror.r r bi r r 99jr« rir.r 
.r.r.r.r.r.r.r.b-b' r ®FBB®CBB9®b. r r b ' x j ■ j 
r oibc7i' j • o7r r bc j j^* o cij-ro-f ' r c- jxijoTb-T 



220 DATA 35,41 .B.7. 1 . 16, heLBFa ' •seSA^BA* ' 

<®9 : ?R® : 3Beo'=3®e.<R8.<B87' • ltJb=9'- '■9®D'5b- • jm. 

R8- 8A r R8 r 8A- R8=c- ' r ' rR9r 9e . R(9 . 8or R9 r CJ T 

- • '7R®7' • c j'. ' • 'R9aR9' • c r 'e'- '.RA. DB- RA. 

•- c r ®9- • r R9 r D8oR8oD8 r R8 r ' ■ co88- ' • H8jR8j8 

8- Vc.98- * -hR8 r R8 r R8' ■ '- cc- '-a. 

230 DATA RAoR8»RA=a- ' ■ C9- ' • a r RF r a- '- C8- ' 

- a- R9 r R8- a- ' - C8. R9o ' RAo aRC. pq. RCa. Rfl'.RS 

. C®o R®o " RA. aRC. qp» RCa. RA ■ o R8. CQ- " - a- R9 r R 

8- a- "- C8- "-a r RF r a- "- C8- " - a. RA. R8. RA. a- d- 

cc- • • 'R8 r R8 r rh" ■ d- c r c- ' • 88jR9j99- d- c r c- 

' r R8 r D8oR8oD8 r R8 r h- cjc- ' . RA- DB- RA. h 

240 DATA - "- c- "R8aR8h- ' ■ c- "7R87IT c=5c r R8 r 

®®- R@- H® r R® r c7c. R8- ®A r R® r AA- R®. ' •scoSD'? ' * 

b*' aB8-<R®-<B®-B® : 5R®=3®®lBA-<BA'rBFa 

250 DATA 29,27,20.7,4,0, "AE" r ND®AAGS®RAo 

RA" r d- NA-5®@R®jR®" r d. g jNA-3®9r- r ' r d>gjm. mj 

RAj8®7' r d- momjRAj®®7" r NBro NAjRA j88. RC. " • 

' . r ' p " •5®®7 '• 'r.'r'ii99j9l.r'r'5'djr r r r r r r 

j'r' r pjp r 'd-r r r r r r r r 'r'obd-r r r r r r ro'r''9b 

DB8HCA' rb.n.n.n.n.b7ao.Io7ao-grjr 

260 DATA jrjr r o7afr''08fOA-f : OAfOAfOA-<o r goA 

A*ojOAfOAfOH7do- g. r jr=3eido?eidf r. r. r=3r r e 

*OAfOBfODfOD*DAjDAjOA- 

270 DATA 16,28,28,27. 1 .64, 8Ad8®dSAAA-d7h 

r ha-d.na-doria- '.r.NBq r h'- ' jnRA' j ' - ' rioN 

Qr ir'.r. '-c-RA'.r. '.c=3'.RA. ' jc- '.RC. ' r cR 

®c®8-5 ' . - r - of - f oLAOC " r " f *ocR8c ' o R8. RAo R8. 

o' r 'f.r7roo' r 'ojjgjkj jfcRScoo r. kJ®i joro® 

9 r ' oo r. J9e jg. r. f ' r ' o. ro kh JAo r. ocRS 

280 DATA cojJAijjo' r 'f.r?r.q' r 98. RSoRAoR 

8oo' r 'f toCBOCf 'fOC 

290 DATA 28.29,33,6, 13.0. *eNAe9njn*n- n/fn 

r NA r n'5n-5n?n r o- o r n-n*n-n*n-n In jnhngnknhn- 

'k'o'r'o'o". 8H7 'o "o 'r'o 'r'r'REi'p'. ' o ' r ' 

o 'o 'o *7i ' 7 ' o 'o 'r'o ' r * r ' RE i'7'o'r'r'g'o'o 

- 7i "7"o 'o 'r'o 'r'r'REi *7'o 'r'r'o 'o 'o "7i8G 

i 'o 'r'o ' r ' r'REi88hRE" rfr'o 'o 'o '7i 

300 DATA @®hr. r.r. r '.f r '. 'r ' r 'REiSBiRC'r 

F® ' i ' r ' r ' 7 i @®e ' ir.r.r'. ®Ao ' o ' o ' o oRC i ®8o ' 

iRBe'h' j 'r ' r ' ko- i88o8H»N®'r ' r' k®Fqg- i • rip 

RJp®¥ 

310 DATA 31 ,25.25,6.21 ,0. ' AA' a ' A®' •? ' rpr ' 

3' r '•> ' o r« ' a ' r ' -5 ' jA®8AA®®CA®8® r ' •sa- j r j r j r 

ha^btiat-boa^b^ai-boaorQSBA^'- j r j r job= ' o r ' a 

' jA®9AA8®Ao ' o r®AD9®BAB' aj ' REpco do ro- ro=3' 

a. ro 'r.r.r.rpc.d-ro-roj'arpr' R®DA®Ac 1 ' D® 

®AD®8BA8 r b'o r« ' r= RE r r r r r r r r r r r b ' j 

320 DATA 'R8DA8Bc8BBA8ABA®Ab' j'r.r.r.rp' 

•f ' j'REp'-f" j®FAB8G7dr- r ' • RGp ' 7dR8j" r ' • A88 

G7dRA r ' rare ' 79JDA8H7 

330 DATA 18,35,21 ,6,9,0. =30Erorjrofo.RAoO 

1-o.rqr.oto. RAo o=3ADor jroADo OCo 08 l 08o OC. or 

jror jror jr08. RA. o.RAoOoRAo08. rpr.morpr.m 

. rpr. 08. RA. o. RA. o. RA. 08r jror jror jro. 08 l 

8. 08 1 0®. 0® l 0®. o ■ o • o • 0®. RA. o. RAo o. RAo 08. r 

pr.OorproOorpro09oRAoOoRAoo.RA. 0® 

340 DATA • o- o- OQHCo ICoKCOS- o- o- 09- o- o- o. 

F®o F®o F8o F®= f no nf. f RCf RCf RCF9RCf RCf RCf qL 

®eL®qL®eL®qL8eL9q ' RC ' RC ' RC89RC ' RC ' RCSQRC 

mRCrnRC®®RC ' RC ' RC99HC ' HC ' HC ' o 99e 9®o 8®e 98= 

99e®@o 

350 DATA 16,21 ,8, 13,8,0, 'e'e'e'e'e'e'e'e 

' eRAo RA. RA. RAe ' RM ' eRA. RA. RAo RAe '.r.pjijp 

o r o ' eRAo RA. RA. RAe ' RA. RAo RAo RA ' eRAo RAo RA. 

RAe'oro i?i.r. ' eRA. RA. RA. RAe ' RA. RA. RA. RA ' 

eRA. RA. RA. RAe '.r.pjup.r.' eRAo RA. RA. RAe ' 

RM ' eRAo RA. RAo RAe "e'e'e'e'e'e'e'e" 



10 ' save "ro 1 -set3 . bas 

20 0PEN"a:rol-rank.dat"AS81:FIELD81 . 12 AS 

NAS , 2 ASSCS , 2 ASSTS : FOR I = 1 TO 1 : READNS 

30 LSETNA$=N$:LSETSC$=MKI$( 1 100- 1*100 >: L 

SETST$=MK 1 $C1 1 - I > : PUTM 1,1: NEXT I : CLOSE** 1 

40 DAT AN . M I YAMOTO , K . TSUBOTA , K . NAKAGAWA . T 



. FUR I HATA , Y . TAKAHASH I . T . YAMAZAK I , N . SAKUS 
H I MA , H . FUTAMURA , T . HOSOKA I , Y . M I YAMOTO 



10 'SAVE"rol ling.BAS 

20 CLEAR 1 00, &HCCFF:GOSUB 1080 'settingl 
30 GOSUB 1 590 :GOSUB 1470 ' t i t le ; sett i ng3 
40 GOSUB 1 490 :GOSUB70 ' sett ing4; game 
50 GOSUB1520 'ending 



game over 



60 GOSUB950:GOTO30 

70 'game 

80 _TURBO ONCSC.TM.CO.BOC ),FL,N,X1 , Yl . AD 

,DR,T1,T2,ST) 

90 SN=-1 :RT=1:S$=" ":LOCAT 

E12, 1 1 :PRINTS$ 

100 I FSN=0THENREADSN . A , B : SOUND0 . AM0D256 : 

SOUND 1 , A¥256 : S0UND8 , B 

1 10 SN=SN-1 :T2=T2-1 : T1=T1+(T2<0 ) : T2=T2-2 

0*< T2 <0 > : LOCATE20 , 3 : PR I NTT 1 " . "T2¥2 

120 TM=T1*10+T2: IFTM<56THENK=2*< TMM0D8 ) : 

VDPC 17)=K:F0RK=KT0K+1 :0UTN, (PEEKC&HD330+ 

K >*TM¥56 >* 1 6+PEEKC &HD340+K )*TM¥56 : OUTN . P 
EEKC &HD350+K )*TM¥56 : NEXTK 

130 1 FWT>0THENWT=WT- 1 : LOCATE 13,12:1 FWTMO 
D 1 >5THENPR I NTASELSEPR I NTSS 

140 IFTK0THENFL=1 : GOTO 820 

150 FS=FS+ 1 : I FFS=20THENPOKE&HD0 17,2: POKE 

&HD0 1 8 , 2ELSE I FFS=40THENFS=0 : POKE&HD0 17,8 

:POKE&HD018,8 

160 S=ST I CK (. ) : ML= 1 -2 *< C S=6 >0R C S=4 > ) : DR= 
DR-C C S=70RS=6 )-C S=30RS=4 > )*ML : I FSTR I G< > 
=0THENSF= 1 ELSE I FSF= 1 ANDCO>9THENSF=0 : A$=" 

1 " : C0=C0- 1 : GOSUB460 : GOSUB750 

170 DR=(DR+128)M0D128:ZC=C0S<3. 14***0R/64 

):ZD=C0S<3. 14»*DR/32) 

180 ZS=SINC3. 14M*DR/64):ZT=SINC3. 14tt*DR/ 
32):W=U-4:FL=0 

190 GOSUB590:FL=FL+1 : IFFL>3THEN220 

200 JD=1 : A=AX+260:VP= l v l PEEKCA):GOSUB230: J 

D=2 : A=AY+260 : VP=VPEEKC A ) : GOSUB 230 

210 JD=3 : A=AZ+260 : VP=VPEEK< A) : GOSUB230 

220 AD=AZ:X1=P1 :Y1=G1 : GOSUB 690:GOTO100 

230 "hit-check sub 

240 ONVPGOTO390 , 390 , 390 , 390 . 390 . 540 , 330 . 

250,260,270,300.290,320,320,390,340,380, 

370, 350: RETURN 

250 GOSUB550: AS="3" : GOSUB460 : GOTO420 'TI 

ME +3 

260 GOSUB550: A$="5" : GOSUB460 : GOTO420 'TI 

ME +5 

270 GOSUB550:RD=RNDC 1 )*128: IFRD< 10THENAS 

="10":GOSUB470ELSEIFRD<25THENA$="10":GOS 

UB460ELSE I FRD<80THENRT=32 : GOTO300ELSEA$= 

"coin +10": CO=CO+ 1 : SN=0 : RESTORE650 

280 WT=20:GOTO420 'MISTERY 

290 GOSUB550:A$='"3":GOSUB470:GOTO420 'TI 

ME -3 

300 GOSUB550:SC=SC+5*RT: A$=STR$C5*RT)+"0 

PTS. ":WT=20:RT=RT*2: IFRT>32THENRT=32 

310 GOTO 420 'BLOCK (SCORE +) 

320 FS=FS-1:IF PEEKC&HD0 18 )=8 THEN 400 E 

LSE RETURN 'SIGNAL 

330 A$="5":GOSUB470:GOTO400 'TIME -5 

340 A$="2":GOSUB470:GOTO400 "TIME -2 

350 CO=CO+ 1 : VPOKEA , : SN=0 : SOUND0 ,71: REST 

ORE650:GOSUB750 

360 SC=SC+CST+1 )¥2: A$=STR$C CST+ 1 )¥2>+"00 

PTS. ":WT=20: RETURN "COIN 
370 SC=SC+1 :A$="100 PTS. " : WT=20 : SN=0 : RES 
TORE680 : SOUNDS , : GOTO400 
380 SC=SC+3:AS="300 PTS. 
TORE680 : S0UND8 , : GOTO400 
390 S0UND6 . 5 : SOUND 13,0: SOUND 10,16 
400 'common disposal 
410 RT=1 

420 GOSUB750: GOSUB 480 
430 IFABSCV)>25 1THENV=SGNCV)*251 
440 IFABSCW)>25 1THENW=SGNCW)*251 
450 RETURN 190 

460 RESTORE660:Tl=Tl+VALCA$):AS="time +" 
+A$:WT=20:SN=0: RETURN 'time - 
470 RESTORE670:Tl=Tl-VAL<A$):A$="time -" 
+AS:WT=20:SN=0: RETURN 'time + 



'BUMPER 1 
:UIT=20: SN=0 : RES 
'BUMPER 2 



480 'bound 

490 ZB=BOC VP- 1)/ 1 : W=V*ZD+W*ZT : WW=V*ZT- 

U)*ZD:ON JD GOTO 500,520,500 

500 V=-ZB*W:W=-ZB*WW: IFABSC V2 )< 10THENU= 

W-C 30*ZC )*ZC : V=V+C 30*ZC )*ZS : SOUND 10,0 

5 10 RETURN 

520 V=ZB*VV : W=ZB*WW : I FABSC W2 ) < 1 0THENU=W- 

< 30*ZS )*ZS : V=V-< 30*ZC )*ZS : SOUND 10,0 

530 RETURN 

540 RETURN 770 'FINISH 

550 'destroy 

560 SOUND10, 16:SOUND13,0:SOUND6,5:D=(V2* 

V2)¥100+CW2*U2)¥100 

570 IFD>0ANDD<80THENRETURM400ELSESOUMD6 . 

15 

580 VPOKEA , 255 : POKE&HD009 , -20 : POKE&HD008 

,RNDC 1 )*20-10:POKE&HD00A,VP-l : RETURN 

590 'MOVE 

600 V2=V*ZC+W*ZS:W2=-V*ZS+W*ZC: IFABSCV2) 

>25 1 THENV2=SGNC V2 >*25 1 

6 10 I FABSC U2 ) >25 1 THENW2 =SGN< U2 )*25 1 

620 P 1 =X 1 +V2 : Q 1 =Y 1 +U2 : Ax=AD : AY=AD : AZ=AD : 

I=-CPK0) + CP1>25 1 ): J=-COK0) + CQ1>25 1 ) 

630 P1=P1+252*I :AX.=AX+I : AZ=AZ+I +64* J : Ql = 

Q 1 +252*J : AY=AY+64*J : RETURN 

640 'sound data 

650 DATA 1,85,15 .1,71,15 .3,53,15 ,2,53 

,13 , 1 ,53, 1 1 , 1 ,53,9 ,-1,0,0 

660 DATA 1.127,15, 1,64,13. 1.32,15, ,-1 

,0,0 

670 DATA 1.254,15, 1,509,15. 1.1017.15, 

-1,0.0 

680 DATA 1,600,15, 3,600.13. 3.600,11. 

,0.0 

690 'draw map 

700 ZC=C0S(3. 14»*DR/64): ZS=SINC3. 148*DR/ 

64):X3=2*X1¥21 :Y3=2*Y1¥21 

7 1 DX=X3*ZC-Y3*ZS : DY=X3*ZS+Y3*ZC : KK=&H8 

000+DR*200 

720 POKE &HD002.KKAND255:POKE &HD003.CCK 

KAND-256 )¥256 )AND255 

730 POKE &HD004.ADAND255:POKE &HD005.CCA 

DAND-256 >¥256 5AND255 

740 POKE &HD000.2*DR:POKE &HD006 . DXAND25 

5 : POKE &HD007 . DYAND255 : A=USR< > : RETURN 

750 'score and coins 

760 L0CATE3, 1 9 : PR INT"SCORE : "STRSCSC )"00 

": LOCATES. 21 : PR I NT "CO INS : "CO: RETURN 

770 'finish! ! 

780 SOUND 1 ,0:SOUND0, 128 : SOUND 10 . : SOUND 1 

2,0 : SOUND 11,20: S0UND8 ,16: SOUND 13,8 

790 SOUND1,0:FOR I=20TO1 16 : J=l 16-1 : SOUND 

0, J*2:S0UND1 1 , J¥3 

800 DR=DR+ I ¥5 : DR=DRM0D 128: GOSUB690 : K=2*C 

IM0D8) 

810 IF I>60 THEN D=l 16-1 : VDP< 17 )=K: FORK= 

KTOK+1 :OUTN, (7-PEEKC&HD300+K)*D¥56 )*16+7 

-PEEKC&HD3 10+K )*D¥56 : OUTN, 7-PEEKC&HD320+ 

K>*D¥56: NEXTK: NEXT I : FL=0ELSENEXTI : FL=0 

820 -TURBOOFF 

830 SOUND8.0: IFFL=1THENRETURN60 

840 VDPC17)=0:FORI=0TO15:OUTN, 1 19: OUTN, 7 

: NEXT I : 1 = 1 : GOSUB 1050 

350 L0CATE7, 10:PRINT"YOU HAVE FINISHED": 

L0CATE12, 13:PRINT"stage";-ST; " ! ! " 

860 SOUND12,25:PLAY"tl80sl 18o4b-4db-d+b- 

db-b-4db-d+b-db-b-4d-b-d+b-d-b-d+b-db-d- 

b-16d-.b-", "t 1801 16o2vl5b-r8b-r8b-8r8f8g 

8g+8b-r8b-r8b-8r8f 8g8a8o3c+r 16c+r 16c+4r8 

dr8c+8r 1618o2b-.b-.b-4r 16o3d-.o2b-" 

870 FORI=-1TO0: I=PLAYC0 > : NEXT I :L0CATE,23 

: FOR I =0TO6 : PR I NT : NEXT 

880 L0CATE9, 12 : PRINTUSINC'score : HHBtttt00 

";SC:L0CATE4. 1 4: PRlNTUSING"t i me bonus :» 

BHHB00";T1*<ST+1 )¥2: LOCATE 4, 16:PRINTUSI 

NG"coin bonus : »4H**Htt00" ; CO 

890 FORI=0TO1000:NEXTI : SOUND0 , 128: SOUND 1 

.0: J=l :LY=14:BN=T1*<ST+1 )¥2:GOSUB920 

900 FOR I =0TO 1 000 : NEXT I : LY= 1 6 : BN=CO : GOSUB 

320 : FOR I =0TO 1000 : NEXT 1 
9 10 IFST=1 1THENRETURN50ELSEST=ST+1 : RETUR 
N40 

920 I FBN=0THEN940ELSEFOR I =BNTO 1 STEP- J : SC 
=SC+J:S0UND8,-15*C IMOD2=0) 
930 L0CATE16. 12 : PR I NTUS I NG"t4t4tt8H" ; SC: LOC 



113 



ATE16,LY:PRINTUSING"888ttt4"; I : NEXT I 

940 LOCATE 1 6, LY: PR I NT" " : SOUNDS , : SO 

UND 13.0: RETURN 

950 ' Game over ! ! 

960 1=1 : GOSUB 1 050 :VDPC 17 )=0 : OUTN, : OUTN, 

0: LOCATE 1 1 , 12 : PRlNT"9ame over" 

970 FORI=0TO3000:NEXTI :FORI=l 1T02STEP-1 : 

GETB1 ,1-1 :A$=STR$C I) 

980 IFSOCVICSC$)THENPUTttl , I : NEXT I ELSE I = 

1-20-.NEXTI: 1 = 1+21 : IFI = 1 1THENA$=" -" 

990 CLS: LOCATES, 7 :PRINT"RANK :"AS:LOCAT 

E5,9:PRINT"SCORE : "STRSCSCV00" : LOCATE5 , 

11 : PRINT"STAGE : "ST: 1FI=1 1THENL0CATE8 , 17 

:PRINT"out of rank ing" : FORI=0TO3000 : NEXT 

I :GOTO1040ELSELOCATE3,4:PRINT"rank in !! 

":L0CATE4. 16: PRINT" INPUT YOUR NAME II" 

1000 LOCATE10, 19:SS=" ":PRINT 

" > " ; S$ : C=0 : N$= " " : A=USR KB) 

10 10 POKE&HFCAB , 255 : POKE&HFCAC , : A$= I NPU 

TSC 1 ): IFCA$<" "ORAS>"2" >THENIFA$=CHR$C8 ) 

ANDO0THENC=C-2ELSEIFA$=CHR$C 13 5THEN1030 

ELSE 10 10 

1020 C=C-C C< 12): N$=LEFT$C N$+A$ , C ) : LOCATE 

1 1 , 1 9 : PR I NTLEFTSC N$+S$ . 1 2 > ; : GOTO 1010 

1030 LSETNA$=N$ : LSETSC$=MK I $C SC ) : LSETSTS 

=MKI$CST>:PUJ«1 , I 

1 040 GOSUB 1 670 : FORI =0TO9000 : NEXT: RETURN 

1050 'Reset pallet and Erase sprite and 

Cls;in i=pallet code of beginning 

1060 VPOKE&H7600,216:CLS:VDPC 17)=1 :F0RI= 

I TO 15 

1070 OUTN.CPEEKC&HD330+I ) )*16+PEEKC8=HD34 

0+1 ):OUTN,PEEKC&HD350+1 > : NEXT I : RETURN 

1080 'settingl 

1090 DEFINTA-Y: 0PEN"a: ro 1-rank . dat "ASB1 : 

FIELDH1 , 12ASNA$.2ASSC$,2ASST$ 

1100 'GOTO 1220 

1110 KEY OFF: COLOR 1 . 15, 15: SCREEN5 , . : COL 

OR=C 14.7,7,7): COLOR=C 1,7.7,7) 

1120 -TURBOON 

1130 X=l :Y=110:C=1 : RESTORE 1 150 : FORI =0TO2 

: READDS : F0RJ= 1 TOLENC D$ > : D=ASCC M I DSC D$ , J . 

1)):D=D-65:C=CX0R1 :FORN=0TOD: IFC=0THENPS 

ETCX,Y>, 1 :PSETCX+2,Y+2>. 14 

1 140 Y=Y+1 : IFY=138THENY=1 10:X=X+1 

1 150 DATACYEWHTJRMOOPOOWHTJRMOJRHTEWCOJO 

KO JOJP I P I QHQHRGRHSFQADFNDDFKGDFH JDFMEDFO 

AD I SKRMRMOMNQKTHWEEFHEBBCJFGDLEHBNDHBNDP 

BFFLEFG JFEG I GEHHGFGHGFG I GFF I GFEKFGCFAGEO 

A I CNCHDMDFFKGDHGKATVFXDZB C A C VGWEWEXDXDXD 

XDWEUEUbACAZBXDVbaSMOQNRMRNRMOQKMOJRFR 

1 160 DATAGRGQKNNJR7ZBWETHQKNNKQHRGRHSFQA 

DFNDDFKGDFHJDFMEDFQAD I SKRMRMdNNQKTHWEZX I 

DKD I DKD I DKD I DKD I DKD I DKDHEKDHF JEFH I FDME¥A 

MAMALCLBJF JDGKF I JOP JTGVEXD I F I CGLGBFNF AFP 

LPKRJRJRJRKPLPFAFNFBGLGC I F I DXEVGT JPOJNFH 

EGJFGDLEHBNDHBNDPBFFLEFGJFEG I GEHHGFGHG 

1170 DATAFG I GFF I GFEKFGCFAGEOA I CNCHDMDFFK 

GDHGKAAJOPJTGVEXD I F I CGLGBFNFAFPLPKRJRJRJ 

RKPLPFAFNFBGLGC I F I DXEVGT JPOJ I tGEKEGEKEGE 

KEGEKEGEKEGEKEGEKEGEKEGEKEGEKEGEKEUEsEWE 

WEUEWEWEWEWEUIixUIEWEWEWEWEWEUE : NEXTN , J , I 

1180 _TURBOOFF 

1 190 PLAY"t255vl5o3cl6vl2cl vl Ic4v8c2", "t 

255vl5o2cl6vl2clvl Ic4v8c2" , "t255v 15o la 16 

vl2al vl Ia4v8a2" 

1200 FORI=7TO0STEP-1 : J=4+3*I¥7 : COLOR=C 14 

. J , J , J > : J= I : COLOR=C 1 , J , J , J > : FORJ=0TO80 : N 

EXTJ, I :BLOAD"rol-mac.bin":SETPAGE,2:BLOA 

D"rol-SPRl . vrm",S:SETPAGE,0:BLOAD"rol-tu 

rn . vrm" , S: BLOAD"ro l~spr2 . vrm" , S: FORI =7TO 

0STEP- 1 : J=5* I ¥7 : COLOR=C 1 4 . J , J , J > 

1210 COLOR=C 15. J, J. J):FORJ=0TO30:NEXTJ, I 

:LINEC0,0)-C255.21 1 ) , , BF: COLOR 15 , , 

1220 VP0KE&H79FE , : VPOKE&H79FF . : SCREEN 1 

:WIDTH32:RESTORE1220 

1230 VDPC 9 > = C VDPC9 50R32 5AND253 : VDPC0 > = C V 

DPC05AND241 >0R4:VDPC 1 )=VDPC 1 )AND23 1 

1240 VDPC 1 )=VDPC 1 )OR3:VDPC3)=255:VDPC 1 1 ) 

=0:VDPC5)=239:VDPC 12 >=0 : VDPC6 5 = 15 

1250 -TURBOON 

1260 J=256:F0RI=1T04:READK,A$:F0RJ=JT0K: 

V=VPEEKC J ) : V=VORV¥2 

1270 IFJ>766THENV=VPEEKCJ-256) 

1280 VPOKEJ,V:VPOKEJ+&H2000, 16*CVALC"&h" 



+MID$CA$,CJMOD8)+l , 1 ) > ) : NEXTJ , I 

1290 DATA 383,55577555,471 .dddaaddd, 767, 

55577555.983,66899866 

1300 A=145*8:FORJ=0TO1 1 : READAS: FORI =0TO7 

: VPOKEA, VALC"&h"+MID$CA$, 1*2+1 ,2)) 

1310 VPOKE&H2000+A.&H2 1 :A=A+1 : NEXT I , J 

1320 FORI=0TO7: VPOKE9440+I , VALC "&h"+MID$ 

C"60608f8f909dd0d0", 1*2+1 ,2>):NEXT1 

1330 DATA7f7f7f7f7f7f7f7f .fefefefefefefe 

fe,ffffffff00000000,0000O000ffff*fff 

1340 DATA07 1f3f3f7f7f7f7f , 7f 7f 7f 7f 3f 3f If 

07,e0f8fcfcfefefefe,fefefefefcfcf8e0 

1350 DATA000000007f7f7f7f .ffffffffffffff 

ff ,0000000000000000, 3c7e9fbffffc7e3c 

1360 FORJ=lT02:FORI=256T01279:VPOKEl+J*& 

H800.VPEEKCI) 

1370 VPOKEI+J*&H800+&H2000. VPEEKC I+&H200 

) : NEXT I , J 

1380 _TURBOOFF 

1390 DIM BOC 18):TM=0:FL=0:N=PEEKC7)+2:RE 

STORE1390:FORI=0TO18:READBOC I >:NEXTI 

1400 FORI =0TO15: READAS: A=VALC"&o"+A$>:PO 

KE&HD300+I ,7-A¥64 

1410 POKE&HD3 10+I , 7-C A¥8 5AND7 : POKE&HD320 

+ I . 7-AAND7 : POKE&HD330+ I , A¥64 

1420 POKE&HD340+I , C A¥8 )AND7 : POKE&HD350+I 

, AAND7 : NEXT I 

1430 FORI=0TO16:READA:POKE&HD00B+I ,A:NEX 

T : DEFUSR=&HCD0O : DEFUSR 1 =&H 156: RETURN 

1 440 DATA6 ,6,6,6,6,0,6,6,6,6,6,6,9,9,3,6 

,50,50,0 

1450 DATA 020.000,007,227,060.064.500,06 

5,600,702,7 15.727,206,7 14,555,777 

1 460 DATA7 ,14,14,14,14,3,6,11,11,11.11.1 

1, 12,8, 10, 10,8, 15, 10 

1470 "setting3 

1480 ST=1+STICKC0):T1=0:CO=0:SC=0: 1=0: GO 

SUB 1050: RETURN 

1490 'setting4 

1500 SOUND 1 1 ,0:SOUND12,27:SOUND7, 156: SOU 

ND10.0: I=0:GOSUB1050:LOCATE12, 1 1 :PRINT"s 

t age " ; -ST : POKE&HFCAF , 5 : BLOAD"r o 1 -st "+R I G 

HTSC"0"+STR$C 100+ST),2)+". vrm" , S: POKE&HF 

CAF , 1 : X 1 = 1 26 : Y 1 = 1 26 : AD=&HEEFC+VPEEKC &HEF 

FD)+VPEEKC&HEFFE)*64:DR=VPEEKC&HEFFC) 

1510 T 1 =T 1 ¥2+VPEEKC &HEFFF ) : T2=0 : CLS : LOCA 

TE17, 14:PRINT"L":L0CATE12, 1 1 :PRINT" READ 

Y !! ":POKE&HD02B,2 16:GOSUB690:GOSUB750 

: LOCATE 1 5 , 3 : PR I NT " t i me : " T 1" . " T2 : RETURN 

1520 'ending 

1530 LOCATE 1 , 16 : PRINT"spec ial bonus : 2 

00000" : BN=2000 : LY= 18 : J=5 : GOSUB920 

1540 FOR I =0TO 1000: NEXT I : CLS: LOCATE 12,9: 

PRINT"the end":LOCATE 2,19 

1550 PRINT"ALL CREATED BY n . miyamoto" : LO 

CATE 17, 22: PR I NT "THANK YOU ..." 

1560 SOUND 12, 200: PLAY" tl 00s 1 18o4ceg4o5c4 

e4.fd2r4","tl00sl 18o4cco3b4a4g4. f f 2r4" 

1570 PLAY"o4gab4o5d4d4.ec2r4ccc4o4bao5e2 

f 2o4g4" , "o3ggf 4e4d4.cc2r4aaa4gf e2d2b4" 

1580 PLAY"o5edc4d4. vl5clslcl", "o4cde4f4. 

v 15e 1 s le 1" : FORI =0TO25000 : NEXT I : RETURN60 

1590 'title 

1600 1=0: GOSUB 1 050 :C=0 

16 10 C=C+ 1 : I FC= 1 THENGOSUB 1 640ELSE I FC= 1 0T 

HENGOSUB1670ELSEIFO20THENC=0 

1620 FORI=0TO59:LOCATE8.23: IFK30THENPRI 

NT"PRESS SPACE KEY ! ! " ; ELSEPRINTSPCC 18 ) 

1630 I FSTR I GC >=0THENNEXT : GOTO 1 6 1 0ELSE I = 

5000: NEXT: RETURN 

1640 CLS:LOCATE0,3:PRINT"'5'5'5'}^'5'}}}'}'5'i'i'5 

1650 PRINT"ft'i«3**fcSi*SS*SSSSSfi'iSSSS*S**S* 
XvZZZS:f>2Z£<.'<Zt>S>2-<h^-5f>Zt>>}X<ht,t>t>ZM£V2<<yX<£ 

vxvx < **fcffx< s*s**a*ssaastf*< 333**sssss*4*s 
&&$xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1660 LOCATE1 , 15:PRINT"yasumaro-soft PRES 
ENTS IN 1992. ": RETURN 

1670 CLS:PRINT" — score ranking — " 
: PR I NT: PR I NT "RANK NAME SCORE 
STAGE" :F0RI = 1T0 10 :GET81 , I : LOCATE 1, 1*2+2: 
PRINTUSING"H8 & & 8888800 88 

" ; I ; NA$ ; CV I C SC$ ) ; CV I C ST$ ) : NEXT I : RETURN 
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1 DEF I NTA-Z : COLOR 15,1.1: SCREEN 1 : KEYOFF : 

WIDTH32:VPOKEB223, 136 

20 FORI=0TO2:READCC I ) : NEXT 

30 CLS : X= 1 : Y= 1 : F=RNDC -T I ME ) : G=0 : P=0 

40 GOSUB 150 

50 AS=STRING$C32,248):PRINTA$; :FORI=0TO1 

7:PRINT"V"SPCC30)" l J"; : NEXT : PR1NTAS 

60 FOR I =0TO9: GOSUB 160: NEXT 

70 LOCATE 1, 2 1 :PRlNTP"+>" 

80 T=S:S=STICKC0): IFT=0THENF=CF-CS=3 >+CS 

=7)+4>M0D4 

90 X=X+CF=3)-CF=1 ):Y=Y+CF=0)-CF=2) 

100 C=VPEEKC6144+X+Y*32> 

1 10 LOCATEX, Y:PRINTCHR$C 144+G*8 ) 

120 IFC=132THENG=CG+1 )MOD3 : GOSUB 1 50 : GOSU 
B 1 60 : BEEP : P=P+ 1 : GOTO70 

130 I FC= 1 44+G*80RC=248THENLOCATEx . Y : PR 1 N 
T"*" : BEEP: BEEP : BEEPELSE80 

140 IFSTICKC0)=1THEN30ELSE140 

150 FORI=0TO2: VPOKES2 10+C 1+OMOD3.CC I )*1 
7 : NEXT : RETURN 

160 A=RNDC 1 )*30+l:B=RNDC 1 5* 1 8+1 : IFVPEbKC 
6 1 44+A+B*32 ) < > 1 32 THENLOCATEA , B : PR I NT "O" : 
RETURNELSE160 

170 DATA 10.5.4 

inv Formula 
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10 ' save"f-set . bas 

20 CLEAR 100, &HDBFF : DEF I NTA-Y : COLOR 15,0,0 

: SCREEN 5 : SETPAGE1 , 1 : CLS: ST=0 

30 _TURBO ON CST) 

40 K=-1:F0R N=0 TO 4: READ A$:FOR X=0 TO 

7: FOR Y=0 TO 3 

50 I=X*8+Y*2+1:B=ASCCMID$CA$, I , 1 > >*64+AS 

CCMIDSCAS, 1+1,1 >>-3835 

60 PSET CX+4,Y*3+162),B¥256:PSET CX+4.Y* 

3+163), CBMOD256)¥16 

70 PSET CX+4,Y*3+ 164 >,BMOD16: NEXT Y,X 

80 FOR R=-10 TO 10:K=K+1:ZS=SINC3. 14159/ 

20*R):ZC=SINC3. 14159/20*CR+10 ) ) 

90 FOR I =-7 TO 8: FOR J=-7 TO 8:X=J*ZC-I* 

ZS+7 : Y=J*ZS+ I *ZC+7 

100 IF X<0 OR Y<0 THEN P=0 ELSE P=POINTC 
X,Y+160> 

110 PSET CJ+7+CKMOD16)*16, I+CK¥16)*16+7) 

, P : NEXT J , I , R , N 

120 LN=250:FOR I=&HDC00 TO &HDCC8 STEP 3 
2: READAS :SUM=0:FORJ=0 TO 31 

130 D=VALC"&h"+MID$CA$, J*2+l . 2 ) ) : SUM=SUM 
+D*J:POKEI+J,D 

140 NEXTJ: READAS: IFSUMOVALC "&h"+A$)THEN 
ST=1 :SCREEN0:PRINT"Error i n"LN: BEEP: END 

150 LN=LN+10:NEXTI 

160 _TURBOOFF 

16 1 IF ST=1 THEN END 

170 BSAVE "CARS. vrm", , &H4000 , S: BSAVE "f 

ormu la. b in", &HDC00 , &HDCCF 

180 'Character Data 

190 DATA :=?; ; =GK?M?AT) GK?<< " PPW1PPOYT' 



1 Pr UIYXpO 1 ? < < P PRW 1 ?M?BXmGK ; =? 



DATA ;=?; ; =GKzm? JzmGKKOzzpOZzpOYzzP 



ZzpOY: JPZK<<Jzp9Zzm??L=GK;=? 
210 DATA ;=?; ;=GK?M?AU)GK?<< 
L)CCMvieL?<<POeAL?M?BY)GK;=? 



220 DATA ;=?; ; =GK?M?F i mGK?<=v i v; InGgLnGg 



lnGcLnGgl?<=eiv; l?M?Ee)GK;=? 



230 DATA ;=?; ; =GKzm?DzmGKK<=Zzt9JaXoLrX' 



JaYsLvh " JK<=Zzt@Jzm?DL=GK ; =? 
240 'Machine Language Data 



;=GKhv 



; =GKPX 
QeADCCMrXe 
; =GKOK 



; =GKFC 



;=GKsB 
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250 DATAF33E10328ADD328CDD3E033285DD3ED0 
3290DDCD82DCEE0 1 328 1DD0605C52323 . DC9 1 
260 DATA7E233282DD3286DD7E233284DD3288DD 
7E23FE0C2806E5CD90DCF3E1C1 10DE3A.0FC3 
270 DATA07004F0C3A80DDED793E97ED793E0232 
85DD3E983290DDCD82DC0605C57E3282.E9B7 
280 DATA0D237E3284DD237E3286DD237E3288DD 
237E23FE0C2806E5CD90DCF3E1C1 10DC.0F03 
290 DATAFBC92191DD1 1 19003A8 1DDB7280 1 19C9 
F3CDACDC3A07004F0C3E20ED793E9 1ED.D7D4 
300 DATA790C0C2 182DD0B0FEDB3FBC93E02CDBB 
DCE801C2ACDCAFCDBBDCC9ED4B0G000C,0BF0 
3 10 DATAED793E8FED79ED78C900000000000000 

00000000000000000000000000000000, 17D1 



10 ' save "for mu 1 a . bas 

20 ' ma i n 

30 CLEAR 1 00, &HDBFF:GOSUB 1070 

40 _TURBOON 

50 DIM T$C4),DPC4),RC4),RSC4, 15),AC20),B 

C20),MC4),SC4),XC4),YC4) 

60 GOSUB 370 

70 GOSUB 420: GOSUB 580 

80 GOSUB 610:GOSUB 100:GOSUB 770: IF R<ER 
THEM 80 

90 GOSUB 9 10: GOTO 70 

100 'game 

110 IFTIMEC4THEN1 10ELSETIME=0 

120 FL=0: GOSUB 1 30 :GOSUB220: IFFL=0THEN1 10 

ELSERETURN 

130 "road 

140 WW=WW-1 :W=WW¥20:D=D+1 : IF D=ED-20 THE 

N DC=0:LC=100 

150 C=C+DC: IFC<10ORC>245-UTHENC=C-DC:DC= 

-DC 

160 I_C=LC-1:IF LC=0 THEN LC=RND< 1 )*1 1 +8 : 

DC=RNDC 1 )*CV*2-CV 

170 CY=CY-8:IF CY=-8 THEN CY=248 

180 FORJ=0TO1 :POKEAD+36,0:POKEAD+38,CY:P 

OKEAD+39 , 3-J*3 : POKEAD+40 , : POKEAD+42 , 8 : P 
OKEAD+44 , &H8C : POKEAD+46 , &HC0 : A=USRC ) 

190 POKEAD+36 , C : POKEAD+40 , W : POKEAD+44 , : 

A=USRC0) 

200 NEXTJ: IFD=EDTHENFORJ=0TO1 :COPYC0, 150 

)-CW, 165), 1T0C2*CC¥2),CY), J*3:NEXTJ 

210 FL=CD=ED+30): RETURN 

220 'player 

230 FOR 1=0 TO P 

240 IF SCI)=12 THEN 320 ELSE M=MCI):X=XC 

I):Y=YCI ):S=SC I ) 

250 IFI=3THENK=PEEKC-1051):K=-3*CCKAND4) 

=0)-7*CCKAND2)=0)ELSEIFl=4THENK=PEEKC-10 

50 ) : K=-3*C C KAND2 )=0 )-7*C CKAND1 )=0 )ELSEK= 

STICKC I ) 

260 M=M+CCK>1 )ANDCK<5))-CCK>5)ANDCK<9)): 

M=M+CM>20)-CM<0):S=S-CS<9) 

270 X=X+S*ACM):Y=Y+240-S*BCM):Y=Y-C600>Y 

)*C600-Y ) : PY=C Y¥30+CY+ 15 )M0D256 

280 SOUND1 ,9-S¥2:SOUND0,255-CSMOD2)*128- 

PG*5-I*5 

290 IFVPEEKCPY*128+X¥60+4)=&H8C THEN S=S 

-2:S=-S*CS>1 ) 

300 IF Y>6630 THEN RT=RT+1 : Y=30000-D: S=l 

2:POKE&HDD95+I*5, 12 : POKE&HDDAE+ 1*5 , 12 

310 GOSUB340 : SC I )=S: XC I )=X: YC I )=Y: MC I )=M 

320 NEXT I : PG=PGXOR 1 : POKE&HDD8 1 , PG : POKE&H 

DD80.CY: A=USR2C0): IF RT>P THEN FL=1 

330 RETURN 

340 ' 

350 J=MC I 5+2 1*C IMOD5):A2=I*5+PG*25+&HDD9 

1 :POKEA2,CJMOD16)*16:POKEA2+l , CJ¥16)*16 

360 POKEA2+2 , X¥30 : POKEA2+3 , Y¥30+CY: RETUR 

N 

370 'setting 1' 

380 FORI=0TO20:AC I )=INTCCOSC3. 14*I/20)*3 

0):BC I)=INTCSINC3. 14* 1/20 )*30 ) : NEXT I 

390 RESTORE390:FORI=0TO4:READT$C I ) : NEXT I 

: P=4 : ER= 1 6 : CV= 1 2 : WS=80 : ED=464 

400 AD=&HDD82-32 : DEFUSR=&HDC90 : DEFUSR2=& 

HDC00: RETURN 

410 DATA J. Alezi , A. Seana.M. Shoemaker, K.V 

endl inger.N.Mensel 1 



420 "title 

430 SCREEN0:LOCATE0,4:PRINTSTRING$C80, "- 
") 

440 LOCATE30,5:PRINT"The Tiny Formula 
450 LOCATE22,8:PRINT"Presented by YASUMA 
RO-SOFT in 1992" 

460 LOCATE27, 10 : PRINT"Programmed by N.Mi 
yamoto":LOCATE0, 1 1 : PRINTSTRING$<80 , "-") 
470 NN=0:R=0: GOSUB 480: RETURN 
480 'Set up Parameters 

490 LOCATE26. 14: PRINT"P layers :"P+1 
500 LOCATE26. 15 : PR I NT"Rounds :"ER:ER 
=ER-1 

510 X=0:CV=CV¥3:ED=CED-16)¥32:LOCATE26. 1 
6:PRINT"Curve level : "CV+1 : LOCATE26 , 17 
520 PRINT"Width : "WS: LOCATE26 , 18 : PR 
INT"Distance : "ED+1 : WS=WS-60 
530 S=STICKC0):X=X-CSOK)*CCS=1 )-CS=5)): 
X=CX+5~NN)MODC5-NN):Y=X+NN 

540 K=-C CSOK)0RCPEEKC- 1045 5=254 ))*CCS=7 
) - C S=3 ) ) : L0CATE24 , Y+ 1 4 : PR I NT" > " 
550 LOCATE38, Y+14: IFY=0THENP=P+K: P=CP+5 ) 
MOD5 : PR I NTP+ 1 ELSE I FY= 1 THENER=ER+K : ER=C ER 
+ 1 6 )MOD 1 6 : ER=ER-C ER<R ) : PR I NTER+ 1 ELSE IFY= 
2THENCV=CV+K : CV=C CV+ 1 )MOD 1 : PR I NTCV+ 1 EL 
SEIFY=3THENWS=WS+K:WS=CWS+61 )MOD61 : PR I NT 
WS+60ELSEED=ED+K: ED=CED+30 )MOD30 : PRINTED 
+ 1 

560 LOCATE24, Y+14: PRINT" " : K=S 
570 IFSTRIGC0 )=0THEN530ELSECV=CV*3 : ED=ED 
*32+ 1 6 : ER=ER+ 1 : WS=WS+60 : RETURN 
580 'setting 2 

590 R=0:FORI=0TO4:DPC I )=0:RC I )=I : POKE&HD 
D95+ 1 *5 , 1 2 : POKE&HDDAE+ 1 *5 . 12: NEXT I 
600 RETURN 
610 'setting 3 

620 CLS:LOCATE35, 1 1 : PRINT"Round"R+l :FORI 
=-lTO0: I=STRIGC0):NEXTI 

630 NN=1:GOSUB500:SCREEN5: VDPC 1 >=VDPC 1 )A 
ND191 :RT=0:CY=8: VDPC24)=8 

640 D=-31 :C=128-WS¥2:LC=50:DC=0:FORI=0TO 
3 1 :WW=WS*20:GOSUB130:NEXT1 

650 FORJ=0TO1 : SETPAGE, 3-J*3 : LINECC, 1 165- 
CC+WS-2, 1 16). 15 

660 FORI=0TO6: Y=128+I*12 : X=104-32*C IMOD2 
=l):LINE<X,Y)-CX+12,Y+4). 15.BF 
670 LINECX+2,Y+2)-CX+10,Y+4),0,BF:NEXTI , 
J 

680 S=0:PG=1 :FORK=0TOP: I=R<P-K) : YC I )=C12 
2+K*12)*30:X< 1 )=103*30-30*32*CKMOD2=1 ) 
690 MC I )=10:S( I )=0:X=XC I ):Y=Y< I ):G0SUB34 
: POKE8=HDD95+ 1 *5 , : POKE&HDDAE+ 1 *5 . 
700 NEXTK : PG=0 : POKE&HDD8 1 , PG : POKE&HDDB0 . 
CY: A=USR2C0):VDPC 1 )=VDP< 1 J0R64 
710 COPY <0,50>-C48, 146), 1 TO <8.1B) 
720 S0UND7 , 56 : S0UND5 . : S0UND4 . &HD6 : SOUND 
3,0: SOUND2 , &HD4 : SOUND 13,0: SOUND 12,60 
730 SOUND 1 1, 10:SOUND9, 16:SOUND10, 16:SOUN 
D6 , 1 5 : SOUND0 , : SOUND 1,9 : SOUND8 , 1 5 
740 FORI=0TO4:FOR J=0 TO 10000 : NEXTJ , I 
750 S0UND4,&H69:S0UND2,&H6B: SOUND 13,0 :S 
OUND9 ,16: SOUND 10,16: SOUND8 . 1 4 
760 COPY C48,50)-C96, 146). 1 TO C8,16)-SE 
TPAGE. 3: RETURN 
770 'race end 

780 SOUND8,0:SCREEN0:FORI=0TOP:XC I )=RCP- 
I ):RC I )=I :NEXTI : IFP=0THEN810 
790 FORJ=0TOP-1 :FORI=0TOP-1 : IFY< 1+1 XYC I 
)THENSWAPRC I ),RC 1 + 1 ):SUIAPY< I ) , Y< 1 + 1 ) : SWA 
PXC I ),XC 1+1 )ELSEIFY< I )=YC 1+1 )ANDX< 1+1 XX 
C I )THENSWAPRC I ) . RC I + 1 ) : SWAPYC I ) , YC I + 1 ) : S 
UAPXC1 ),XCI+1) 
800 NEXT I. J 

810 R=R+1 :PRINT"-Round "R" Resu 1 t-" : PRIN 
T 

820 FORI=0TOP:NN=RC I ) : RSCNN, R-l ) = I + 1 : PR I 
NT" "; : IFSCNN)=12THENRS(NN, R-l )=0:PRINT 
" Retired " ; : DP=0 : ELSEIFI=0THENPRINT" W 
inner " ; : DP= 10ELSEIF I=1THENPRINT" 2 nd 
"; :DP=6ELSEIFI=2THENPRINT" 3 rd 
": :DP=4ELSEPRINTI+1 ; "th "; :DP=6-I 
830 DPCNN)=DPCNN)+DP:PRINTT$CNN):NEXTI :L 
OCATE0, 10:PRINT"Dr iver's point" 
840 FORI=0TOP:Y< I )=I :XC I )=DPC I ):NEXTI 
850 FOR 1=0 TOP-l:FOR J=0 TOP-I-1 



860 IF XCJXXCJ+1) THEN SWAP YCJ),YCJ + 1) 

:SWAP XCJ).XC J+l ) 

870 NEXT J , I 

880 FOR 1=0 TO P 

890 LOCATE0, 12+1 : PRINT" "TSC YC I ) ) : LOCA 

TE 17, 12+1 :PRINTDPCYC I))"Points" 

900 NEXT I : GOSUB 1020: RETURN 

910 'game over 

920 CLS:PRINT"-Result-":PRINT:PRINT 

930 PRINT" ROUND 12 3 4 5 6 
7 8 9 10 11 12 13 14 15 16 wins D. 

P. 

940 FORI=0TOP:WN=0:NN=YC I ) : LOCATE0 , I+5:P 

R I NTTSC NN ) : LOCATE 13, I +5 : NR=ER 

950 FOR J=0 TO 15:RS=RSCNN, J): IF J>ER-1 

THEN PRINT" - "; ELSE IF RS=0 THEN NR=NR 

-1: PRINT" R ";ELSE IF RS=1 THEN PRINT" W 
" ; : WN=WN+ 1 ELSE PR I NTRS ; 

960 NEXTJ :LOCATE63, I+5:PRINTWN; :LOCATE68 

, I+5:PRINTDPCNN); 

970 LOCATE73. I +5 : PRI NTNR* 1 00¥ER"x" : NEXT 

I 

980 LOCATE6, 14: PRINT"WORLD CHAMPION is " 

TSCYC0)) 

990 FORI=-1TO0: I=STRIGC0 ) : NEXTI 

1000 GOSUB1020 

10 10 RETURN 

1020 ' 

1030 LOCATE33.21 :PRINT"Push Space Key!!" 

1040 IFSTRIGC0)=0THEN1040ELSERETURN 

1050 _TURBOOFF 

1060 END 

1070 'setting 1 

1080 DEFINTA-2:COLORl, 15, 15:SCREEN5. ,0:C 
OLOR=C 14,7,7.7):COLOR=C 1,7,7,7) 

1090 _TURBOON 

1 100 X=1:Y=1 10 :C=1: RESTORE 1 120 : FORI =0TO2 

: READDS : FORJ= 1 TOLENC D$ ) : D=ASCC M I DSC D$ , J , 

1 )):D=D-65:C=CXORl :FORN=0TOD: IFC=0THENPS 
ETCX.Y). 1 :PSETCX+2,Y+2), 14 

1 1 10 Y=Y+1: IFY=138THENY=110:X=X+1 

1 120 DATACYEWHTJRMOOPOOWHTJRMOJRHTEWCOJO 
KOJOJP I P I QHQHRGRHSFQADFNDDFKGDFHJDFMEDFQ 
AD I SKRMRMQNNQKTHWEEFHEBBCJFGDLEHBNDHBNDP 
BFFLEFG JFEG I GEHHGFGHGFG I GFF I GFEKFGCFAGEO 
A I CNCHDMDFFKGDHGKATVFXDZB CA C VGWEWEXDXDXD 
XDWEWEUbACAZBXDVblSMOQNRMRNRMOOKMOJRFR 

1 130 DATAGRGQKNNJR7ZBWETHQKNNKQHRGRHSFQA 
DFNDDFKGDFH JDFMEDFQAD I SKRMRMQNNQKTHWEZX I 
DKD I DKD I DKD I DKD I DKD I DKDHEKDHF JEFH I FDME¥A 
MAMALCLBJFJDGKF I JOPJTGVEXD I F I CGLGBFNFAFP 
LPKRJRJRJRKPLPFAFNFBGLGC I F I DXEVGTJPOJNFH 
EGJFGDLEHBNDHBNDPBFFLEFGJFEG I GEHHGFGHG 

1 1 40 DATAFG I GFF I GFEKFGCFAGEOA I CNCHDMDFFK 

GDHGKAAJOPJTGVEXD I F I CGLGBFNFAFPLPKRJRJRJ 

RKPLPFAFNFBGLGC I F I DXEVGT JPO J I Z.GEKEGEKEGE 

KEGEKEGEKEGEKEGEKEGEKEGEKEGEKEGEKEWEsEWE 

WEWEWEWEWEWEWi.WEWEWEWEWEWEWE : NEXTN , J , I 

1 150 _TURBOOFF 

1 155 PLAY" t 255 v 15o lal6v 12ala 1 v8al " , "t255 

vl5o3cl6vl2clclv8cl", "t255v 15o2c 16v 12c lc 

lv8cl 

1 160 FORI=7TO0STEP-1 : J=4+3*I¥7 : COLOR=C 14 

, J, J, J): J=I :COLOR=C 1 , J , J , J ) : FORJ=0TO80 

1170 NEXTJ , I : SETPAGE , 1 : CLS :LINEC0,50)-C9 

6, 146), l.BF 

1 180 CIRCLEC24, 1 14) . 16 , 8 : PAINTC24, 1 14) , 8 

:CIRCLEC72,74), 16 , 7 : PAINTC72 , 74) , 7 

1190 FOR 1=0 TO 96 STEP 2:LINE C I , 50 )-C I 

.146). 1: NEXT I 

1200 CIRCLEC24.74), 16 , 5 : PAINTC24. 74) , 5 : C 

IRCLEC72, 114), 16. 12:PAINTC72. 1 14), 12 

1210 C=l :D=15:FORJ=0TO7STEP4:FORI=0TO160 

STEP4:SWAPC.D 

1220 LI NEC I . 150+J)-C 1+3, 153+J ) , C, BF: NEXT 

I . J:COPYC0, 150 )-C 140, 157)TOC0, 158) 

1 230 SETPAGE , 2 : BLOAD"CARS. vrm" . S 

1 240 BLOAD"f or mu 1 a . B I N" : FOR I =&HDD82T0&HD 

D8F:P0KEI ,0:NEXT1 

1250 FORI=7TO0STEP-1 : J=5*I¥7 : COLOR=C 14. J 

, J,J):COLOR=C 15,1,1,1 ):FORJ=0TO50 

1260 NEXTJ, I :COLOR15. 1 . 1 : SCREEN0 : W IDTH80 

: VDPC 9 )=VDPC 9 )OR&B00 1 000 1 

1270 RESTORE 1270: FOR 1=0 TO 15:READ R,G, 

B:COLOR=C I , R. G. B) : NEXT I : RETURN 



115 



1280 DATA 3,3,3, 0,0,0, 2,2,2, 1,1,1. 5, 
5,5, 7,0,0, 7,2,2, 4,0,0, 0,3,0, 0,0,7 

1290 DATA 2.4,7, 0,6,6. 0.5.1, 7,5,0. 5. 
3.0, 7,7,7 

♦P^ PRESSURE 

100 —————————— 

110 '• P- PRESSURE = Part I /Landing = •• 
120 ' — ■■ — ■■ — ■ — ■ — ■ — ■ 

130 '• SET- 1 — ■ 1392/3/11 By ZERO •• 



140 



————————————— 



150 COLOR2 ,1,1: COLOR2 ,0,0: SCREENS 

160 OPEN"GRP: "F0R0UTPUTAS81 

170 DIMW/.C 1 ),F%C2 1),SMxC8),SV%C8),MU>iC 1 , 

13):DEFINTN,W,Z:W?«C0)=1 :JM»< 1 >=-! 

180 FORI=0TO20:READ F%(. I ) : NEXT 

130 FOR1=0TO 8:READSM%C I ) , SVKC 1 ) : NEXT 

200 FORI=0TO1 :FORJ=0TO13 

2 1 READMUxC I.J): NEXT J . I 

220 " ———————————— 



230 

24-0 

250 

80-1 

260 

270 

280 

290 

300 

3 10 

SET: 

320 

330 

340 

350 

360 

370 

380 

390 

400 

.FXC 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

6B0 

b70 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 



• TITLE — — — — TOKIO • 
——————— —————— 

SETPAGE0 . : COLOR5 : FOR I =0TO 1 : PSETC 85 , 
> . . TPSET-.PRINT81 , "P- PRESSURE" : NEXT 
GOSUB 1200: GOSUB 1 230 : N= 1 



—— ■■■ — ■■ — ——— 

'• SCREEN — — — — — LONDON • 
————————— 

SETPAGEO , 1 : CLS : SETPAGE0 , : Z=0 : 1*1=0 
COLOR10:FOR1=0TO1 : PSETC 95 , 60- I ) . . TP 
PR I NTH 1 . "STAGE" ; N : NEXT 
LINEC 49, 9)-C210, 1 11>.2,B 
LI NEC 24, 1 14)-C 1 14, 196).2,B 
LINEC 1 16, 1 14)-C236, 196).2,B 
LINEC 126, 186 )-C 2 18, 186), 15 
LI NEC 2 19, 186)-C226, 186), 8 
' — ■ — ■ —— ■ — ■■ — 
'• SET- 2 <TURBO START) — PARIS • 
■ ■ — ■ —— ■■■ —— 
_TURBO ONC W , II . UI%C ) , MUXC ) , SM%C ) , SUxC ) 
)) 

V=80:H=0:P=3. 14 159 : L=P/ 180 
FOR I =0TO 1 3 : SOUND I , MU*C , I ) : NEXT 1 

■ — ■■ — ■■■ — — ■ — ■■■■■■■■ 

'• FACTOR/C- AIRPORT/CALCULATE — • 

——————————— 

ST=STICKC0)+STICKC 1 ) 
VZ=VZ+SV«C ST ) : MZ=MZ+SM*C ST > 
H=INTCJ): J=J+.5 
MZ=MZ-CMZ=-1 1 )+CMZ=l 1 ) 
VZ=VZ-CVZ=-1 1 )+CVZ=l 1 ) 
V=V+VZ/ 10 : M=360+MZ*2 
IFV>80THENV=80ELSEIFV<10THENV=10 
Z=Z+F%CVZ+10) :' (-POINT) 
SETPAGE0 , 1 : A= 1 : B= 1 : GOSUB630 
X 1 =COSC M*L )*80 : Y 1 =S I NC M*L )*80 
X2=COSCCM-V)*L)*H:Y2=SINCCM-V)*L)*H 
X3=COSCCM+V-180)*L)*H 
Y3=SINCCM+V-180)*L)*H 
■ ■ ■■■ — ■ —— — — ■■■■ — 

'• DRAW AIRPORT — — LONDON • 
' ■ — ■■ — ■ — ■■■ — ■■■■■■■■■ 
A=8 : B=4: GOSUB630 : GOTO730 
LINEC 125-X1 ,85+Yl )-C 125+X1 ,85-Yl ). A 
LINEC 125+X2,85-Y2)-C 125+X3 , 85-Y3 ) , A 
LINEC 125,85)-C 125+X2 , 85-Y2 ) , A 
LINEC 125,85)-C 125+X3 , 85-Y3 ) . A 
LINEC 128-X1 ,85+Yl )-C 128+X1 ,85-Yl ),B 
LINEC 128+X2,85-Y2)-C 128+X3 , 85-Y3 ) , B 
LINEC 128,85)-C 128+X2 , 85-Y2 ) , B 
LINEC 128,85)-C 128+X3 ,85-Y3 ) . B 
RETURN 

——— ■ — ■■■■■■■■■■ 
"• WIND/COPY/DRAW PANEL •— N.Y • 
• — ■■■■■ — ■ — ■ — ■■■■ — 
IFCC=10THEN760ELSECC=CC+1 :GOTO770 
R=INTCRNDC 1 )*2 ) : W=WXCR)*N: CC=0 
WW=WW+W : MD=MD+MZ : LR=MD-WW 



780 IFLR) 50THENLR= 50 

790 IFLR<-50THENLR=-50 

800 COPYC50+LR,40-VZ)-C200+LR. 140-VZ). 1 I 

OC55, 10). 

8 10 SETPAGE0.0 

820 PSETC 126+H. 186-CV-10 )/2 ) , 8 

830 LINEC45. 154+VH+MH)-C94, 154+VH-MH). 1 

840 LI NEC 45. 154+VZ+MZ)-C94, 154+VZ-MZ).8 

850 LINEC45, 154)-C94. 154). 15 

860 VH=VZ:MH=MZ 

870 —— ■■■■■■■■ ——— ■■ 

880 '• END OR RETURN — WASHINGTON • 

890 ' ——— ————— — —— 

900 TR=STR I GC ) : 1 FTRTHEN940 

910 IFH>100ORV=10THEN920ELSE440 

920 W=H: IFABSCLR)>10THENW=10 1 

930 ' ——— ■■■■ — ■■ — ■■ 

940 '• CLEAR OR GAME OVER — bOb I ON • 

950 • ———————————— 

960 _TURBO OFF 

970 BEEP: IFW> 100ORWO0THEN1 150 

980 • — ■■ — ■■■■ — ■ —— ■■ 

390 '• DRAW -POINT — ■■■ — ■■ N.Y • 

1000 ' — ■■■■■■■■■ — ■■ — ■■■■■■■■• 

1010 COPYC 1 15, 1 13)-C237, 197 ) . 0TOC0 . > . 1 

1020 SETPAGE0.0: GOSUB 1230 

1030 IFZ>100THENCOLOR8ELSECOLOR10 

1040 FORI=0TO1 : PSETC 75. 150-1 ).0.TPSET:PR 

INTttl." - POINT :";Z:NEXTI 

1050 COPYC 0.0 )-C 122,84), 1TOC65.30J.0 

1060 GOSUB1200: IFZM00THEN1 150 

1070 CLS:N=N+1 : IFN<7THEN280 

1080 ' ———————— 

1090 '• ENDING ■■■■■■■■■■■■■■■■ TOKIO • 

1100 ' — — ■■■■■■ — ■■ — ■■■■■■■■■■ 

1 1 10 PLAY"O7T120L8V14CFDV12CFDV1 1CFDV6CF 

D" : CLS : COLOR 1 : A$="CONGRATULAT 1 ON ! " 

1 120 FORI=0TO40:PSETC70. 100-1 ->,0, TPSET :P 

R 1 NTH 1 , A$: NEXT : GOSUB 1220: GOSUB 1230 

1130 GOTO230 

1140 ' ■■■■■■ — ■■■■■■■■■■»■■■■■■■■■■■■■ 

1150 '• GAME OVER — • BACK IN TOKIO • 

1160 ' ———————— —————— 

1170 FOR I =0TO 1 3 : SOUND I , MU?iC 1,1): NEx I 1 
1 180 COLOR=C0,5. 1 , 1 ):COLOR=C 1,5.1.1 ) : GOS 
UB 1 200 : COLOR=MEW : GOSUB 1 230 : COLORS : FOR I =0 
TOl: PSETC 85, 100-1 ) . , TPSET: PR I NTS 1 . "GAME 
OVER" : NEXT 1 : GOSUB 1 200 : CLS : GOTO230 
1190 ' ■■■■■ — ■■■ — ■■ —— ■ 
1200 '• SUB=KEY WAIT. CLS — — — — 

1210 ' —— —— ■■■■■ 

1220 FORI=0TO1 : 1=-STRIGC0 ) : NEX.TI : RETURN 
1230 FORI=0TO200:LINEC0, I )-C255. 1). 1 :IIE 
T I : RETURN 

1240 ' —— ■■■■■■ — ■ — ■■■ — 
1250 '• DATA AREA —————— 

————————— 



1260 ' — 

1270 DATA 5,4,3,2.1.1.1,0,0,0 



1. 1,2,3,4,5 

1280 DATA 0. 

.1,1.0.1.-1 

1290 DATA31,2,0,B 

.9 

1300 DATA 110, 15, 

5.200.0 



-1 .-1 .-1 .-1. 
0,0,0.0.54, 14 



,0,0,0,0, 1 , 
: ' C-POINT) 
3,-1,1,0,1,1 
: ' CSM*,SV50 

,0,0.90.208 
: ' C SOUND 0) 
,20.55. 16,0.0. 12 
: • C SOUND 1) 







10 _MUS1C(0,0, 1 , 1 , 1 > :_BGH(I) 

20 KANJ1 : COLOR 15, 0,0: SCR BEN 5, 2,0:0 

A-Z:DIM 0(33,25) : SBTPAGE0 , 1 : CLS : ONS 

GOSUB710:ON1NTERVAL=15GOSUB930 

30 '<<<<< 1iT.il TJM >)>>> 

40 KORK = 0TOl 1 :READA$ :FOR1 = 0TO7: B$ = B 

AL("SH"+MIU$(A$,I«4+1,2))+256):C=VA 

" + M1D$(A$,I»4 + 'J.1)):C1=VAL("SH" + H10 

1*4 + 4, 1)):FORJ = 0TO 7:1 FMID$(B$,.J + 2,1 

THENPSET(J+K«8. 100+1), CBLSBPSET (J + K 

0+1) ,C1 



EF1NT 
P K I T B 



i N$ (.V 

L("8H 
$(AJ, 
) = " 1 " 

•8,10 



50 NEXT:NBXT:NEXT 

60 FOR1=0TO1:A=1*16:COPY(A,100)-(15+A,10 

?)TO(A,0):COPY(8+A,100)-(15+A, I 07) TO (A, 8 

): COPY (A, 100) -(7 + A. 107) TO (8 + A. 8) :FORJ=0T 

01 :COPY(32 + A»1.5,100)-(39 + A»l.5, 107)10(4 

8+J'8+A»2,0):COPY(40+I»8,100)-(4 7+l«8,10 

7)T0(128+J»8-A»4,8-l»8):NEXT 

7 C0PY(88, 100)-(95,107)TO(32,I»8) :C0PY( 

4 8 + A • 2 , ) - ( 6 3 + A • 3 , 7 ) TO ( 4 8 + A « 2 , 8 ) : N E X T : CO 

PY(64,100)-(87,107)TO(9 6.8):COPY(48.0)-( 

63, 15) TO (8, 50) 

80 •<<<<< XT i\\ <t1t\ ))))) 

40 SETPAGB0.0: FOR 1 = 0101 :B$ = "' ' : KOKJ =0TO i : 

KEAI)A$:FORK = 0TO7:B$ = B$ + CHR$(VAL("SH +HIU 

$(A$, 1+K* 2,2)) ) :NBXT: NEXT : SHR 1TK$ ( 1) =B$ : 

NEXT:B$=" " : SPRITES (5) =STR ING$ ( 8 . CHR$ ( 255 

)) 

100 B$="":READA$:FOR1=0TO15:B$=B$+CHRS(V 

AL("&H"+K1D$ (AS, 1+1,1))) :NEXT:C0L0RSPR1T 

E$(0)=B$ 

110 '<<<<< MUSIC DATA 353$ >)>>) 

120 01H M$(101) ,M1$(101) :FOR1=0TO101 :REA 

DM$U) ,M1$(1) :NEXT 

130 ' <<<<< JUk >)>>) 

140 SETPAGE0,3:CLS:SETPAGE3, 2: CLS -.COLOR I 

4:L0CATE18,l:PRlNT' ,r 7 y X A 0) $8 "S. " :C0L0« 

1 : LOCATE 18,0: PR INT "1992 SUGA " : FORI = 0102 : 

COP Y ( 1 44 , J - ( 255 , 3 1 ) TO (0+ 1 , ) . , TPSET : NKX 

I 

150 SETPAGB0,3:LINE(0,0)-(255,95) ,4,BF:I- 

OR1 = 0T()15:COPY(16,0)-(3 1 , 15) , I TO U* 16, 96 

) :NEXT:FORI=0TO7:COPY(0,96)-(255,111)TO( 

0,96+1*16) :NEXT:C()PY(0, I6)-(1 I I ,31 ) ,21'0( 

7 2,80) , , TPSET 

160 FOR1 = 0T()2000:R = RND(I)»255:RI=RNI)(1)* 

211:L1NE(R,R1)-(R-(R1(76)«8,R1-(K1(76)»4 

) , 12,BF:NEXT:KORl=0TO5:COPY(80,0)-(95, 15 

) , 1 TO (96 + 1*1 6, 96) , 2:NEXT:FOR1=0TO6:COPY( 

9 6,96) -(191, 111) ,2T0(96,112+1»16) , 2:NBXT 

170 ' <<<<< »U* lilv' )>)>) 

180 SETPAGE0,0:COPY(0,0)-(255,211),3TO(0 

,0) :PL=5:ST=1 :A$="" 

190 I$=1NKEY$:A$=A$+I$:IFA$="SUGA"0RA$=" 

suga ,, THENH = l:A$ = "":COPY(48,0)-(55,7) . 1T0 

(112, 96), 2 

200 COPY (96, 96) -(191, 210) ,2TO(0.99) ,2:C0 

PY(96,208)-(191,211),2TO(0,96),2:COPY(0, 

96)-(95,211),2TO(96,96),2:COPY(0,0)-(72, 

15) ,2T0 (8, 160) ,2, TPSET: COPY (0,46) -(95. 2 I 

1),2TO(80,96):1FSTRIG(0)=-1ORSTR1G(1)=-1 

THEN210ELSE190 

210 FORI=0TO211STEP2:L1NE(0, I)-(255.l).0 

:L1NB(0, 21 1-1) -(255, 211-1) .0:NEXi 

220 ' <<<(< STAGEt?H >))>) 

23 CLS:D1=0:FOR1=0TO15:COPY(0,0)-(15, 15 

),1TO(I»16,16):NEXT:FOR1=0TO11:COPY(0,16 

)- (255, 31) 10(0, 16 + 1* 16) : NEXT: FOR 1 = 0TO31: 

FORJ=0TO23:D(I,J)=0:NEXT:NEXT:COLOR15:LO 

CATE10,6:PR1NT" STAGE "ST : FOR 1 =010999 

9: NEXT 

240 ONSTGOSUB1120, 1140, 1160, 1180, 1200, 12 

20,1240,1260,1280:K=1:X=2:REAU Y.DY.HO 

25 KOR1=1TO10:READA$:FORJ=1TOI4:A=VAL(" 

*H" + H1D$(A$,J,D) :I)(J«2,1'2)=A:D(J»2+1,1 

• 2)=A:D(J»2,1*2 + 1)=A:D(J»2+1,W+1)=A:C0 

PY(1)(J»2,1»2)»16,0)-(D(J«2,1»2)«16 + 15,15 

),IT0(J»16,16+I»16):NEXT:NEXT 

260 A=0:FOR1=0TO5:WX(1)=0:NEXT:KOR1=1TO1 

0:KORJ=rrO14:B=D(J»2,l'2+l):IFB=4THENU(J 

.2,1«2+1)=9:D(J'2+1,1»2+1)=9ELSE1FB=7THE 

NI)(J«2+1,I*2)=9:D(J»2+1,1*2+1)=9ELSEIFB = 

60RB=8THEND(J«2,1»2)=9:D(J»2+1,1»2)=9 

270 IFD(J»2,1»2)=5THENWX(A)=J»2:WY(A)=I» 

2-l:WA(A)=WY(A) : A = A + 1 : D ( J»2 , i» 2) =9 : D ( J • 2 

+1,1»2)=9:U(J»2,I«2+1)=9:D(J»2+1,I»2+1)= 

9 

280 NEXT: NEXT: COPY (32,0) -(47, 15) ,1 TO (240 
, D Y • 8 + 3 2 ) 

290 BA=0:BT=0:COPY(112,8)-(119,15),1TO(1 
■76,6) : LOCATE 23,0: PR INT" x 0" : L0CATE6 , : PR 
INT"PLAYERx"PL 

3 00 DEFUSR=342:U=USR(0) : .VOICE (845,846) : 
PLAYS2,"T155O5V8","T155O4V8":Q=0:1NTERVA 
1.0N 
310 '<<<<< *V/ ))))> 
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3 20 S=ST1CK(0)+ST1CK(1):SPR1TEON 

3 30 1FD(X,Y+2)=4ANDD(X+1,Y+2)=4THENG0SUB 

520:GOTO360 

340 TFJP=0AND(D(X,Y+2)(5ORD(X+1,Y+2)<5)A 

ND D(X,Y-1))4ANUD(X+1,Y-1))4AND(S=10RS=2 

0RS=8)THENJP=1 

350 IFJP>0THENY=Y-1:JP=JP+1:1FJP=3THENJP 

=0ELSEELSE 1FD(X,Y+2)>4ANDD(X+1,Y+2))4TH 

ENY=Y+1 

360 IFS=30RS=2THENH=1:1FD(X+2,Y))4ANDD(X 

+2,Y+1))4THENX=X+1ELSE1FD(X+2,Y)=3ANDD(X 

+2,Y+1)=3ANDD(X+4,Y)=9ANDD(X+4,Y+1)=9THE 

NSWAPD(X+2,Y),U(X+4,Y):SWAPD(X+2,Y+1),D( 

X+4,Y+l):COPY(0,50)-(23,b5) , 1-TO (X*8 + 16,Y 

•8+16) :X=X+1:GOSUB550 

370 IFX <3THEN3 90ELSEIFX> 29THEN810 

380 1FS=7ORS=8THENH=0:1FD(X-1,Y)>4ANDD(X 

-1 , Y + 1))4THBNX = X-1ELSBXFD(X-1 ,Y)=3ANDD(X 

-1,Y+1)=3ANDD(X-3,Y)=9ANUD(X-3,Y+1)=9THE 

NSWAPD(X-1,Y),D(X-3,Y):SWAPD(X-1,Y+1),D( 

X-3.Y+1) :COPY(8,50)-(31,b5) , 1T0(X«8-24,Y 

•8+16) : X=X- 1 :GOSUB570 

390 GOSUB590 

400 FORI=0TO5:GOSUBbl0:WA(l)=tfA(l)+l:NBX 

T 

410 IFU(X,Y)=7ANDD(X,Y+1)=7THENBA=BA+1:L 

OCATE24,0:PRINTBA:D(X,Y)=9:D(X,Y+I)=9:CO 

PY(0,40)-(7,47),lTO(X»8,Y»8+24) 

420 IF(STR1G(0)=-1ORSTRIG(1)=-1)ANDBT=0A 

NDBA)0THENBT=15:BA=BA-1:LOCATE24,0:PRINT 

BA:BX=X+H:BY=Y+l:S0UND7,7:S0UNDb,9:S0UND 

8,10 

430 IFBT)0THENBT=BT-I:BY=BY-(D(BX.BY+1)= 

9ORO(BX,BY+1)=5):COPY(112,0)-(119.I5).IT 

O(BX«8,BY»8+8):IFBT=0THENCOPY(0.40)-(7.4 

7),ITO(BX«8,BY»8+16):GOSUB6 70 

440 PUTSPR1TB0, (X*8,Y»8+15) , .H 

45 1FU(X.Y+1 )=6ANDU(X+l ,Y+l)=bTHENCOPY( 

0,40)-(15,47),lTO(X»8,Y*8+24):D(X,Y+J)=9 

:D(X+l,Y+l)=9:HO=HO-l: 1 FHO=0THENGOSUB500 

460 FORI = 0TO1 :FORJ=0TO1 : 1FF0 1NT( (X+l )«8, 

(Y+J)»8+lb)=50RD(X+I,Y+J)=80RlNKEY$='GT 

HENUX=1 

470 NEXT:NEXT:1FDI=1THEN720 

480 GOTO 320 

490 '<<<<< SUB ))>>) 

500 INTERV4LQPF: .STOPS: .VOICE («50> :KOR.l = 

0TO1 5: COLOR =(0,0, 7,0) : L 1 NE ( 240 , DY« 8 + 4 7- I 

)-(255,DY»8+47-l),0:PLAY*2,"VI5O4Clb':FU 

RJ = 0TO 99 9: NEXT: CO LOR =(0,0, 0,0) :NBXT:_VUI 

CB(845,846) : PLAY* 2. "Tl ^SOSVH " . ' T 15 404 V 8 

:U = 

510 INTERVALON: FOR 1=0101 : FOR.I=0TO1 : 11(30 + 

J .DY + i + 2) =9: NEXT: NEXT: RETURN 

■3 20 IFS = 1ANDD(X.Y-1)MTHBNSWAPD(X,Y + 2).U 

(X,Y+1):SWAPD(X+1,Y+2),U(X+1.Y+I):C0PY(X 

*8,Y«8+32)-(X«8+15,Y«8+39)T0(X»8.Y«8+24) 

:COPY(0,40) -(15,47) , I TO ( X * 8 . Y » H + -! 2 ) : Y = Y- 

1 

530 1FS = 5ANDD(X, Y + 3) >4THBNSWAPU(X.Y + 2) .1) 

(X,Y+3):S«APD(X+l.Y+2),D(X+l,Y+i):C0PY(X 

•8,Y«8+32)-(X»8+15,Y«8+39)TO(X«8.Y«8+40) 

:COPY(0,40)-(15,47) , 110 (X«8 , Y*8+32) :Y = Y + 

1 

540 PUTSPR1TE0, (X»8,Y»8+15) , ,H:HETURN 

550 1FU(X + 2.Y + 2)=9ANDD(X + 3,Y+2)=9T1IENFI)R 

I=0TO2:IFX(l)=0ANDR=0THENX(l)=X+2:Y(l)=Y 

:R=1 :NEXTBLSENEXT 

560 R=0:RETURN 

5 70 lFD(X-2, Y + 2)=9ANDD(X- I . Y + 2)=9THENF0R 

1=0TO2:1FX< 1 )=0ANDR=0THENX( 1 >=X-2: Y ( I )=Y 

:R=1:NEXTBLSENBXT 

580 R=0:RETURN 

590 FOR1=0TO2: 1 V X ( I ) > 0THBNY ( I ) = Y ( 1 ) + 1 : SW 

AP1)(X(1) ,Y(1)-1 ) .1)(X(1) ,Y(1 ) + l ) : SWA I'll (X( 

1 ) + 1 , Y ( X ) - 1 ) , D ( X ( 1 ; + 1 . Y ( I ) + 1 ) : CO P Y ( 8 . 4 2 ) 

-(24,65) , lT0(X(l)«8,Y(l)«8 + 8) : 1FU(X(1) ,Y 

(l) + 2) <90RD(X(l)+i ,Y(1 )+2) (9THENXU )=0 

(.00 NEXT:RETURN 

610 '{<,{{{ t* ))))) 

620 lFWB(l) = lTHENb50ELSEiFD(WX (1) ,WA( I) ) 

<9ANUD(WX(1) + 1,WA(1))(9THENWA(I)=WAU) + I 

:»B(1)=1 :RETURN 

b30 IFD(WX(1 ) ,WA(1) ) <9THENWB(i) = ] :CUPY(0 

.3 0)-(7,45),lTO(WX(l)«8+8,WA(l)«8+lb):WA 



(1)=WA(I)+1 ELSB1FD(UX(1)+1,WA(1))(9THEN 
WB(l)=l:COPY(0,3 0)-(7.45), 1T0(WX (I )«8,WA 

(1)'8+16):«A(1)=WA (1)+1ELSBCOPY(80-(W(1) 
= l)»80,'0)-(95-(W(l) = l)«80,?),lTO(WX(l)»a 

,WA(I)»8+16) 

b40 RETURN 

650 1FD(WX(1),WA(1))<90RD(WX(1)+1,WA(1)) 

(9THENWB(1)=0:W(1)=-(W(1)=0):WA(1)=WY(1) 

ELSEIFP0JN1 (WX(1)»8,WA(1 ) • 8 + 1 6 ) = 5 TH ENCOP 

Y(0.40)-(15,47),1TO(WX(1)«8.WA(1)»8+16) 

660 RETURN 

670 •<<<<< ft' fl\-J )>>>> 

6 80 SOUNDS, 15: CO LOR = (0,7, 7,7) :FORI = 0TO3: 
FORJ=0TO4+(I)1)«2:A=BX«8-16+J»8-(I>1)«8: 
B=BY»8+I«8+8:PUTSPRITE5,(A,B-l),8,5:SOUN 
D6,RND(l)»31:lFD(BX-2+J-(l)l),BY-l+l)=lT 
HEND(BX-2+J-(I)l),BY-l+I)=9:COPY(0,40)-( 
7,47) , lTO(A.B) 

by0 FORK=0TO150:NEXT:SOUND6,RND(1)»31:SO 

UND8, 15-1 : NEXT: NEXT :PUTSPR1TB5, (0,0) ,0:C 

OLOR=(0, 0,0,0) :SOUND8,0 

700 RETURN 

710 SPR1TEOFF:RBTURN720 

720 '<<<<< U >))>) 

73 1NTERVAL0FF:_ST0PH:PUTSPRITE5, (0,B) , 
0: COLOR =(0,7, 0,0) : CLS : F0R1=BT07 : FORJ =0TO 
99 9:NEXT:COLOR=(0,7-T,0,0):NEXT:A=0:B=0: 
PL=PL-1 

74 _V0ICE(8b,8b2):PLAY#2,"L6407V8":A$=" 
HAGFEDC":FORJ=0TO4:FORL=0TO6:PLAY#2,M1D$ 
(A$,1+1,1):NEXT:PLAY#2,"0"+STR$(6-J):NBX 
T:PLAY#2,"","V1505C4" 

7 50 PUTSPR1TE0,(X»8,Y»8 + 15.+ A),,B:1FY»8 + 1 
5+A<211THENA=A+l:B=-(B=0):GOTO750 

7b0 FORI=0TO30BB0:NEXT 

770 1FPL)0THEN220ELSE_VO1CE(83,83,83 3):P 

LAY#2,"O4T120V10","T120V6", " T 1 20V8 " : A$ = " 

A8R80 5C8C4 04A8A8R805E8E404A8A8R805K8F4F8 

E4C804A4E8F#2A2":PLAY*2,A$,"R24"+A$,"03A 

2A4G2G4F2F4E2E402A1" 

780 CLS : COLORS :L0CATBb,b: PR INT" GAME 

O V E R " : 1FH=1THEN790ELSEFOR1=0TO1 :_P 
LAY(0,A):i=-(A=0):NEXT:GOTO170 
74 LOCATES, S : PR 1 NT "CONTINUE ( 1 ) KEY'' :FORi 
= 0101 :_PLAY(0,A) : 1 = -(A = 0) : 1 Fl NKEY$ = " 1"TH 
ENPL=5:_ST0PN 
800 NEXT: I FPL = 0THEN 1 70ELSB22B 

Ki0 '<<<<< xr-y vrr >;>>) 

8 20 INTER VALOFF:_STOPH:PUTSPRITE0, (1,213 
) :FORl = 0TO9999":NEXT:_V()ICE(8b,8b,83 3) :PL 
AY* 2, "T 120 V 804", "Tl 20V 504", " T 1 20V8O3 " : A$ 
='G4.B8)C#8U8C#8<B8>D8E-8F#8G2":PLAY#2,A 
$."R24"+A$,"G4G4C#4C#4D8E-8F»8G2" 

830 ST=ST+1 : FOR 1 = 0TO255STEP2: LINE (1 ,0)-( 
1+1,211) ,0,B:SETSCROLL 1 , : NEXT : IFST < 1 0T 
HENSETSCROLL0,0:COLOR10:LOCATE5,b: PRINT" 
S T A G E C L E A R " :FOR1=0TO1 :_PLAY(0 
, A) : [ = -(A = 0) :NEXT:GOTO 220 
840 '(<<<< IVf I-/9' ))))> 

8 50 COI.OR15:PUTSPR1TE0, (0, 220) :SE'IPAGEB. 
3: LINE (0,80) -(255, 9 5) , 4 , BF : SETPAGE0 , : CO 
PY (0,0) -(255, 2 I 1 ) , '.TO (0,0) :C0PY(9b,9b)-( 
I'M , 2 1 1 ) , 2 TO (80,96) :S0UNU7, 7: SOUNDS, 15 
800 FOKl=0TO200:SOUNDb,RND(l) »31 :ShTSCRO 
I.L!NT(RNI)(1)»8) ,0:FORJ = 010 200 : NEXT: NEXT: 
Kb'ISCROLL0,0: .VOICE (854) : PLAYS 2, "V150 3C4 
' :COPY(0,96)-(47.111)TO(104,112):L1NE(12 
0, I 28; -( [35, 143) , 0,BF:PUTSPR1TE0, (12B, 12 
7) , , 1 :FORi=0TO30000:NEXT 

870 KOR1 = 0TO211STBP2:L1NE(0, l)-(25 5, i) ,B 
:LlNE(B,211-i)-(255,211-I),B:NEXT:C0PY(B 
, 144) -(255, 211 ) ,310(0, 144) : A=0 : B=0 : SETPA 
GE0,2:CLS:REST.ORE1300:FORI=0'RO4:READA$,B 
$:COLOR13:LOCATE0,i*2:PRiNTA$:COLOR15:LO 
CATB0, l'2+l :PRJ NTBS : NEXT : SET PAGE0 . • 
880 SETSCROLLA.0, J :PUTSFR1TE0, (120, 127+( 
AMOI)4 = 0) «4) :C0PY(A,B»32)-(A, 31+B*32) , 2T0 
(A,50):LINE(A+],50)-(A+],81),0:A=A+l:lFA 
)255THENA=0:B=B+1:1FB=5THBN900 
890 FOR1=0TO100:NEXT:GOTO 880 
900 _V01CB(855) :PI.AY*2, VI505C2 :I.INE(0, 
50) - (255,81 ) .0,BF:SETP AGE , 2 : LOCA TE0 , : 
PRINT" T H E E N I; " : FO R 1 = TO 1 4 : FO R J = T 
O1:COPY(0,I)-(150,1),2TO(80.40+1«2+J),0: 
NEXT:NEXT 



91B GOTO 910 

920 '<<<<< HUS1C >)>>> 

93B 1NTERVAL0FF:I'LAY#2,N$(Q) ,H1$(0) :Q = Q + 

1:IFQ) 101THENQ=0 

940 INTERVALON:RETURN 

950 '<<<<< ?'77d? DATA )>>>> 

960 DATA FFB0FF90FFb0FFb0FFb0FF60AA0bFF0 

F,FEB6FE90FFb0FEb0FF60FEb0AA0bFF0F 

970 DATA 800BUB90B590BE90D590BBb0AA06FF0 

P,ACB08109D490D509DE90ECb0AB0bFF0F 

980 DATA FEF0FCF4FEE0FCE4FBB0KCE4AAB4AA0 

4,BB0FBB0FBB0FBB0FEEE0EKE0EEE0EEE0 

990 DATA FF70AA75FF50AA80AA54FF4BAA4BFFB 

F , F F 5 F F 5 A A 7 5 F F 7 A A 7 F F F F 1) B 4 K A A b 4 

1000 DATA FC0FF80FF807F807FC07F30CE002F5 

3.C070B070E070E05 0C05 0CF0CF820B0 3 

1B10 DATA F708C3058105F045FC45FF408104C3 

04 , CD 2 3 B 3 2C U 23 B 3 2C U 2 3 B B 3 2CU 2 3 B0 3 2 

1B2B ' <<<<< SPRITE DATA >))>> 

1030 DATA 07073F0705050703,07070F0F0b010 

10F,B0F0FC80D0F0F0E0,F0D0D8D8 38F8E0F0 

1040 DATA 0O0F3F010B0F0F07.0F0B1B1B1CIF0 

70F,E0E0FCE0A0A0E0C0,B0E0F0F0b0 8080F0 

1050 DATA 98bBBBBB69988b45 

1060 ' (<(<< MUSIC DATA ))>>> 

1B7B DATA G8 , R8 , G#8 , R8 , A8 , R8 , A* 8 , R8 , B8 , R 

8,A«8,R8,A8,R8,G#8,R8,G4A#4,C4.G8,G4,G4, 

>C*4,R4, <G4A*4,G4.G8,G4,G4,)C«4 ,R4 , <R8,G 

8,G8,R8,)D8,R8,<G8,R8,>D-8,H8,<G8,R8,)C8 

,R8,(G8,R8,B8,R8,G8,R8,B-8,R8,G8,R8,A2,R 

2 

1080 DATA R8,A8,A8,R8,)E-8,R8, <A8,R8,)U8 

,R8,(A8,R8,>D-8.R8,<A8,R8,>C8,R8,<A8,R8, 

B8,R8,A8,R8,B-2,R2,G4,G4,B-4,R4,GS,R8,R8 

,)C#8,R8,C#8,R8,C*8,G4, <G4,B-4,R4,G8,R8, 

R8,)C*8,R8,C#8,R8,C*8 

1090 DATA A-8,R8,G8,R8,G-S,R8,F8,R8.A-8, 

R8,G8,R8,G-8,R8,F8,R8,R8,U-8,R8,G8,R8,G 

-8,R8,F8,R8,A-8,R8,G8,R8,G-8,R8,F8,B-8,R 

8,A8,R8,A-8,R8,G8,R8,B-8,R8.A8.RS,A-8,R8 

,G8,R8 

1100 DATA R8,B-8,R8.A8,R8,A-8,K8,G8,R8,B 

-8,R8,A8,R8,A-8,R8,G8,G4.,R4..A-8,R8,K4. 

,G4.,R8,A-8,G4.,R4.,A-8,R8,R4.,G4.,R8,A- 

8,G4.,R4.,A-8,R8,R8,G8,R8,G8.R8,G8,H8,G8 

,R4,A-4,R8,G8,R4. ,A-4. ,R4,R4 

1110 '<<<<< STAGE DATA ))))) 

1120 RESTORB1120:RETURN:DATA 2,18,4 

1130 DATA 99999999999999, 09999y l (y i )b4y')y, 

009 00 111 00999, 999 999999b0999,yyyyy 10000 

0999, 99999999909999. 999 99999 90yyyy, '(')')')>) 

9 999099 9 9, 99999 9 97719999, b000808000b499 

1140 RESTORE1140:RETURN:DATA 20,0,2 

1150 DATA 99993999639999,99900990009990, 

99909999999999, 999009909 3 9099, 1190999000 

1111,99900999999999,99909999999969,99900 

999999919,9999994 9990000,99499999900000 

1160 REST0RE1 1 60 : RETURN : DATA 14,12,2 

1170 DATA 99599995595999,99999999999999, 

99994999999999,99999999999999,9999999999 

y999, 99 999999999999, 99999999969999, 04 999 

9 9 0909090,90969919991999,88818818181888 

1180 RESTOREl 1 80 : RETURN : DATA 20,18,1 

1190 DATA 99773999999999,90000400900101, 

90999999^90991, 90998999990899,90990 4 9999 

0004,90999199999909,99499900900909,41119 

9 9 04009 B9,B00009b0000911, 999 9990 00 0009 

1200 RESTORE1200:RETURN:DATA 12,18,1 

1210 DATA 95999399459999, 49000090990009, 

09499 0909 99909,000090 90009.919,99 3 9909999 

4004,440990999001 1 1 ,09094090999010.97099 

0y 00970 10, 90 9 9 4 990990099, 7 999994 991 11 lb 

1220 RESTORE1220:RETURN:DATA 2,0,3 

1230 DATA 97777599999799,00000900009009, 

9 9599 9 9 4 9 5 4 404, 99999997799909, 19991 99111 

9901, 1999 1916991b 19, 11 91 191 1999199, 691 91 

999191914, 19991 111414991,88888888888888 

1240 RBSTORE1240:RETURN:DATA 2,0,2 

1250 DATA 95956599959999,09090010990000, 

9 9 799970999599,79099919999909,0999990949 

6909,99999409090909,99909909099999,90909 

919999999,90904919199994,80808808088088 

1260 RESTORE12b0:RETURN:DATA 20,0,1 

1270 DATA 999505959595b9, 99099909390909, 

99090909099999. 99090939090909, 9 y 09000904 
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99 09,9909993909090 9,99090909099901,990 90 
90 4 94 9999, 99990 0091909 09, 94999999997974 
1280 RBSTOKB1280:KETURN:DATA 2,2,9 
1290 DATA 99000444444444,79095999999999, 
09099999999999,09090999999999,0909099999 
9999,09090999969999,09090999616 94 9,09190 
996103699,09190963050369,09040630535036 
1300 DATA PROGRAM, T. Sugaw 
a r a , SOUND, T. Sugawara, 
MUSIC, A. Sugawara, TEST 
PLAY, A. Sugawara, 1992S 
U U A , M S X(jrX^-»f8ffiitt 






10 ■ r t>~ ■ *')X*T- x iW j 1992 MAR 18 

20 ' PRESENTED BY YOSHIO IGARASHI 

30 ' SETTING :::::::::::::::::::::::: 

40 CLEAR200 , &HCFFF : DEFUSR=&HDB60 : DEFUSR 1 
=&HDA78 : DEFUSR2=&H90 : DEFUSR3=&HD528 
50 DEFINTA-Z:0PEN"GRP:"AS«1 : DEFFNR=1NTCR 
ND< 1 )*83) 

60 DEFFND=VALC"&H"+MID$CA$. J*2+l . 2 ) ) : DEF 
FNACX)=PEEKC8=HD088+X) 

70 SCREEN5,3,0:FORI=3TO0STEP-1 :SETPAGE, 1 
: COLOR 15,0,0: CLS : FORJ = 1 T08 

80 COLOR=C J , J- 1 , J¥2 , ) : NEXT : COLOR=C 9 ,2,2 
, 3 > : COLOR=C 10,7,2,0): COLOR=C 1 1 . . 7 , 3 > 
90 COLOR=C 12,0, 2,0 ):COLOR=C 13 , , 4, ) : COL 
OR=C 14.0,6,0): NEXT I : FOR I = 1 0TO 1 3 
100 READAS:B$="":FORJ=0TO31 : B$=BS+CHR$CF 
NO ) : NEXT J : SPR I TE$C I )=B$ : NEXT 
1 10 SPRITESC 14)=CHR$C128):C=8:Y=96:A$="P 
LEASE WAIT !":GOSUB900 

120 ' MACHINE READ :::::::::::::::::: 
130 FOR1=0TO54:READA$,B$:A=0:FORJ=0TO31: 
B=FND : A=C A+B )MOD256 : POKE&HD500 + 1 *32+J , B 
140 NEXTJ: 1FVALC "&H"+B$)OATHENSCREEN0 : P 
R I NT "ERROR IN": I *10 + 1 040 : ENDELSENEXT 
150 FORI=0TO3 : READAS: FORJ=0TO3 1 : POKE&HU0 
80+I*32+J,FND:NExTJ, I 

160 FORI=0TO1 :READA$:FORJ=0TO63:PUKE&HD4 
00+I*64+J,ASC(MID$CA$, J+l , 1 >>: NEXTJ, I 
170 ' 3D WALL PATTERN ::::::::::::::: 
180 SETPAGE, 1 :BLOAD"ORI-SPRl.SPR",S:COPY 
C0,64)-C255,95), 1TOC0.0), 1 

190 BLOAD"ORI-SPR2.SPR",S:COPYC0,64)-C25 
5,95), 1TOC0.32), 1: SETPAGE, 3 
200 FORI=0TO21 I :PSETC255, I ), INTCRNDC 1 )*8 
)+l :NEXT:LINEC0,0)-C 127 , 127 ) . 15 , BF 
210 FORI=0TO21 1 :PSETC254, I ), INTCRNDC 1 )*3 
)+12:NEXT 

220 DRAW"C6BM15,0M63,97RM1 12.0BM0, 127M63 
.96RM127. 127U127" 

230 PAINTC 16,64),6:PAINTC 1 12 , 64) , 6 : SETPA 
GE.2 

240 FOR I =0TO255 : A=FNR : COPYC 255 , A )-C 255 . A 
+127),3TOCI,0).2:NEXT 

250 DRAWC9BM144.0M19 1 , 96RM239 . 0M 1 44 . " : 
PA 1 1 IT C 1 92 , 5 ) , 1 3 , 9 : PA I NT C 1 92 , 5 ) , 9 . 9 
260 COPYC0,0)-C 127, 127),3TOC 128 , ) . 2 . AND 
270 F0RI=1T01 1 :L1NECFNAC I ),0)-C 127-FNAC 1 
) , FNAC I )/2*3 ) , 9 , BF : NEXT 

280 F0RI=1T01 1 :X=PEEKC&HD098+I*4):Y=PEEk 
C &HD09 A+ I *4 ) : P=PEEKC &HD09B+ 1 *4 ) 
290 COPYCFNAC I ),0)-C 127-FNAC 1 ), 1275.2TOC 
X, Y),P: SETPAGE, P 

300 LINECx.FNACI-1 )/2*3+Y+l )-Cx+ 127-FNAC 
I )-FNACI), 126-FNAC I)/2+Y),0,BF 
310 FORJ=FNAC I )TO 127-FNAC I ): A=FNR 
320 COPYC255.FNAC 1-1 )/2*3+A)-C255 , A+ 126- 
FNAC I )/2-CI = l )),3TOCX+J-FNAC I ),FNAC 1-1 )/ 
2*3+Y+l+C 1=1 )),P 

330 ' BACKGROUND :::::::::::::::::::: 
340 NEXTJ , I : SETPAGE , : FOR I =0TO 1 2 : PUTSPR 1 
TEI,C0,217):NEXT 

350 CLS: FORI=0TO127:A=FNR:COPYC254,A)-C2 
54,A+105),3TOC I , ) , : NEXT 
360 COPYC 0,0 )-C 127, 105 ), 0TOC 128 , ): COPYC 



0.0J-C255, 105),0TOC0, 106) 

370 F0RI=1T015:LINEC64-I ,24-I)-C 191+1, 15 

1 + 1 ), 1+C I>8)*CI-8)*2,B:NEXTI 

380 LI NEC 80, 170)-C 143,209), 15 , BF: COPYC , 

0)-C59,35).3TOC82, 172),0 

390 DRAW"C15BM135,200M135, 180M139, 189M13 

3, 189":FORI=0TO1 : FORJ=0TO3+I*2 

400 FORK=0TO2:LINEC 16+I*207-K, J*30+20-K) 

-STEPC 17+K*2, 17+K*2), 14-K, B: NEXTK, J . I 

410 LI NEC 8, 140)-C39.209), 15,B:LINEC9, 141 

)-C38,208), 15, B 

420 FORI=18TO20:FORJ=0TO1:FORK=0TO1 :CIRC 

LEC 180+J, 190+K), I , 15: NEXTK, J. I :GOSUB960 

430 • OPENING ::::::::::::::::::::::: 

440 FORI=0TO3 1 : POKE&HD380+I , 1 : POKE&HD3A0 

+1,0: POKE&HD3C0+ I , 1 : NEXT 

450 FOR I =0TO7 : POKE&HD380+VALC "&H"+M I DSC " 

10509 10 12 1640474E53", 1*2+1 , 2 ) ) , : NEXT 

460 GOSUB950:U=USR3C0):C=15:A$="tT • *')1-jt 

-')>?' " : Y=40 : GOSUB900 : A$="PRESENTED" 

470 Y=80:GOSUB900:A$="BY Y. IGARASHI" : Y=9 

6:GOSUB900: Y=120: A$="PUSH SPACE KEY" 

480 GOSUB900 : GOSUB940 : FOR I =0 TO 1 5 : POKE&HD 

000,1: U=USR3 C ) : NEXT I : RO= 1 

490 U=USR3 C ) : C= 1 5 : A$=" ROUND " +STRS C RO ) : Y 

=48 : GOSUB900 : MM=C RO+ 1 )MOD2 : T 1 =C RO- 1 )¥2 

500 A$="MAP TYPE "+CHRSC65+MM) : Y=88 : GOSU 

B900:A$="TIME "+STR$C65-TI*40 ) 

5 10 IFTI=1THENPOKE&HD024,40:LINEC 10. 142) 
-C37, 181 ), 1 .BFELSEPOKE&HD024.0 

520 Y=l 12:GOSUB900: IFMM=0THENRESTORE1680 

ELSERESTORE17 10 

530 ' MAP READ :::::::::::::::::::::: 

540 R=RNDC -T I ME ) : FOR I =0TO2 : READAS : FORJ=0 

T03 1 : A=FND : FORK=0TO7 

550 POKE&HD107+1*256+J*8-K,SGNCAAND2"K): 

NEXTK, J, I:FORI=0TO9 

560 X=INTCRNDC 1 )*26 )+3 : Y=INTCRNDC 1 )*14)+ 

3: IFPEEKC&HD100+Y*32+X)O0THEN560 

570 POKE&HD100+Y*32+X.2:NEXT 

580 ' WORKAREA :::::::::::::::::::::: 

590 FORI=0TO2:FORJ=0TO2:PUTSPRITEI*3+J, C 

J*32+80, 1*32+40), 10, I*3+J: NEXTJ, I 

600 PUTSPRITE10,C166, 175), 10, 13:PUTSPRIT 

El 1 , C82, 172), 11,14 

6 10 POKE&HD000 . 9 : POKE&HD00 1.2: POKE&HD002 
, 255 : POKE&HD003 , : POKE&HD005 , 3 

620 POKE&HD0 15.30: POKE&HD0 16.1: POKE&HD0 1 

7,255:POKE8=HD018.0 

630 POKE&HD0 19.1: POKE&HD0 1 A , 18: POKE&HD0 1 

B,0:POKE&HD01C,255 

640 POKE&HD027 , : POKE&HD028 , : U=USR1 C0 ) : 

CH=0 

650 ' MAIN ROUTINE :::::::::::::::::: 

660 U=USR0C ) : ONPEEKC &HD026 )+ 1 GOT 0780 . 78 

0,680,730 

670 ' FLAG :::::::::::::::::::::::::: 

680 POKE&HD100+PEEKC&HD000)+PEEKC&HD001 ) 

*32,0:CH=CH+1 : IFCH<7THENA=223ELSEA=16 

690 B=VALC"&H"+MID$C"1432506E8CAA1432506 

E",CH*2-1,2)):FORI=0TO1 :FORJ=0TO1 

700 ClRCLECA+8,+J,B+8+I ),7, 10 : C IRCLEC A+8 + 

J.B+8+1 ),3, 10: PLAY"", "05E64" : NEXTJ , I 

710 IFCH=10THEN800ELSE660 

720 ' ROCK :::::::::::::::::::::::::: 

730 FORI=0TO9:PUTSPRITEI , C0 , 2 17 ) : NEXT: LI 

NEC64,24)-C 191,151), 10 , BF: GOSUB890 

740 S0UND7 , 56 : P$="0 1 T255 \> 1 5L64" : PLAYPS+" 

CC+DCD" , P$+"C+DD+C+C" . P$+"DFF+GE" 

750 AS="GAME OVER" : C=5 : Y=48 : GOSUB900 : A$= 

"PUSH SPACE KEY" 

760 Y=104: GOSUB900 : GOSUB940 : GOSUB960 : GOT 

0430 

770 " T I ME OVER ::::::::::::::::::::: 

780 GOSUB890:A$="TIME OVER" : C=15 : Y=48 : GO 

SUB900:AS="PUSH SPACE KEY":GOTO760 

790 ' ROUND CLEAR ::::::::::::::::::: 

800 I FRO=4THEN840ELSEGOSUB890 : S0UND7 , 56 : 

A$="NICE CLEAR! " : C= 15 : Y=48 : GOSUB900 

810 PLAY"T150V15O4B2L4EGAO5DEGL8AV13AV10 

AV7AV6AV9AV1 1 AV 1 3AS0M50000A 1" . "T150V13L4 

O4E2G2A2G2L8EV13EV10EV7EV6EV9EV1 1EV13ES0 

M50000E1". "T150V14L8O2CCCCCCCCDDDDEEEEA2 

E2S0M50000A1" 

820 A$="PUSH SPACE KEY" : Y=104: GOSUB900 : G 



OSUB940 : RO=RO+ 1 : GOSUB960 : GOTO490 

830 ' ALL ROUND CLEAR ::::::::::::::: 

840 GOSUB890: AS="ALL ROUND" : C= 1 5 : Y=64 : GO 

SUB900 : A$="CLEAR ! ! " : Y=88 : GOSUB900 

850 SOUND7,56:PLAY"T100V15O4B2L4EGABG2E2 

G2A2B1S0M60000B1", "T 1 00V 1 404E2G2A2G2C2E2 

F+2G1S0M60000G1", "T 100V15L8O2C1D2G2C2C2D 

2G1S0M60000G1" 

860 IFPLAYC0 )THEN860ELSEU=USR1 C0 > 

870 GOTO870 

880 ' SUB ROUTINES :::::::::::::::::: 

890 POKE-609 , &HC9 : U=USR2C ) : RETURN 

900 SETPAGE, 2: LI NEC 0, 128 )-C 127 . 143 ) , , BF 

:COLORC:PRESETC0. 128 ) : PRINT** 1 . A$ 

910 FORI=7TO0STEP-1 :FORJ=0TO1 :COPYC0. 128 

+1 )-C 127, 128+1 )TOC0, 128+ 1*2+ J) 

920 NEXTJ, I : COLOR 15: SETPAGE, : A=LEN CAS) 

930 COPYC0, 128)-CA*8-1 , 143),2T0C 128-A*4, 

Y ) , . TPSET : RETURN 

940 FORI=0TO1 : I=-STR1GC0 ): NEXT : RETURN 

950 FORI=0TO5:POKE&HD000+I , VALCMIDSC "002 

10 1000001", 1*2+1 ,2)):NEXT:RETURN 

960 LINEC10, 142)-C37,207), 10 , BF: FORI=0TO 

1 :FORJ=0TO3+I*2 

970 LI NEC 17+1*207, J*30+21)-STEPC 15, 15), 4 

, BF : NEXTJ , I : RETURN 

980 ' DATA OF SPRITE PATTERN :::::::: 

990 DATA 0101010101010107010101010101010 

00080804040 E0 00 C0 0000000000000000 

1000 DATA 00000000000101FF01010000000000 

000 000 00 000 000 00FE4C7 040 0000 00 00 00 

1010 DATA 0101010101010107010F0505030301 

0000000000000000C00000000000000000 

1020 DATA 00000000041D65FF01010000000000 

0000000000000000FE0000000000000000 

1030 ' DATA OF MACHINE LANGUAGE :::::: 

1040 DATA 3A0BD0E6F8CB3FCB3FCB3FC6D13209 

D03A0BD0CB27CB27CB27CB27CB27473A0A,0D 

1050 DATA D0803208D0C900003E003204D00000 

003A00D03206D03A04D0320CD03A02D047 , E8 

1060 DATA 3A06D0803206D03A0CD03D320CD0FE 

00C23CD53A01D03207D03A04D0320CD03A,34 

1070 DATA 03D0473A07D0803207D03A0CD03D32 

0CD0FE00C25FD500003A06D0320AD03A07 , 66 

10bW DATA D0320BD03A04D0C6883208D03ED032 

09D02A08D07E320DD03A04D0C6893208D0 . 52 

1090 DATA 3ED03209D02A08D07E320ED03A0DD0 

473A0ED090320ED0CD00D52A08D07EFE0 1 , E0 

1100 DATA C228D600003A04D0CB27CB27C69832 

08D03ED03209D02A08D07E3262F523237E.00 

1110 DATA 3264F5237E3265F53E003263F53267 

F53269F5326BF5326DF5326FF53270F53A.2B 

1120 DATA 0DD0C6403266F53E183268F53E8032 

6CF53A0DD0473E809090326AF52 162F5DD.C8 

1130 DATA 219101CD5F01C9003E023265F53E00 

3263F53264F53267F53269F5326BF5326D, 17 

1140 DATA F5326FF53270F53A06D0473A03D080 

320AD03A02D0473A07D090320BD0CD00D5 , B5 

1150 DATA 2A08D07E0600FE0 1200206803A0DD0 

803262F53A0DD0C6403266F53E183268F5.DC 

1160 DATA 3E80326CF53A0ED0326AF52162F5DD 

Ziy 101CD5F013E023265F53E04326FF53E, 1 1 

1170 DATA 003263F53264F53267F53269F5326B 

I-5326DF53270F53A07D0473A02D080320B, 1 1 

1180 DATA D03A03D0473A06D090320AD0CD00D5 

2A08D07E0E00FE0 120020E803A0DD0473E.4B 

1130 DATA 7F90813262F53A0DD0473EBF903266 

F53E183268F53E80326CF53A0ED0326AF5.70 

1200 DATA 2162F5DD219101CD5F013A04D03C32 

04D0FE0CC230D52 1B4002262F521540 12 2.3C 

1210 DATA 64F5217D002266F521 18002268F521 

0600226 AF52 18000226CF5210000226FF5.9F 

1220 DATA 2162F5DD219101CD5F01C900000000 

003E0 13204D03A00D0320AD03A01D0320B.A1 

1230 DATA D03A0AD0473A02D080320AD03A0BD0 

473A03D080320BD0CD00D52A08D07EFE02 . DB 

1240 DATA CAE8D8FE03CA08D9FE0 1CA3BD83A04 

D03C3204D0FE0CCA3BD8C36 1D700000000 . 44 

1250 DATA 3ED03209D03E00CDD500FE03201D3A 

05D03CE6033205D0CB27C6803208D02A08 , E6 

1260 DATA D07E3202D0237E3203D0C9FE0720 1D 

3A05D03DE6033205D0CB27C6803208D02A.AB 

1270 DATA 08D07E3202D0237E3203D0C9FE0 120 

2F3A00D0473A02D080320AD03A01D0473A.8C 

1280 DATA 03D080320BD0CD00D52A08D07E0000 
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FE0 1C83A0AD03200D03A0BD03201D0C9FE.3E 
1290 DATA 05C03A02D0473A00D090320AD03A03 
D0473A0 1D090320BD0C306D82100783E00.32 
1300 DATA CD770 1231 12079CD2000C23ED8C900 
003A04D0CB27CGCE3208D03ED03209D000 , 57 
1310 DATA 00002A08D07E32 13D0237EC6 1032 14 
D02 10078221 1D000002A13D0CD74012322.52 
1320 DATA 13D02A1 1D0CD770 12322 1 1D01 12079 
CD2000C278D80000003A04D0C6EF3208D0,CF 
1330 DATA 3ED02A08D07EC6282 10076CD77012 1 
047GCD7701210876CD7701C620210C76CD,72 
1340 DATA 770121 107GCD770121 1476CD7701C6 
202 1 187BCD770 121 1C76CD770 12 12076CD, AA 
1350 DATA 7701C900000000002100743E0BCD77 
01231 19074CD2000C2EBD83E10326CD8CD.9F 
13G0 DATA 50D8C900000000002100743E0ACD77 
123 1 19074CD2000C20BD93E00326CD8CD.5F 
1370 DATA 50D8C900000000003A00D0320AD03A 
1 D0320BD0CD00D52A08D07E322GD0C900 , 32 
1380 DATA 3A27D03C3227D0FE0120053E003227 
D0FE00C2D1D93A15D03 20AD03A1GD0320B, 13 
1390 DATA D0CD00D52A08D03E00773A15D0473A 
17D0803215D0320AD03A1GD0473A18D080,5C 
1400 DATA 3216D0320BD0CD00D52A08D03E0377 
1 129D1CD2000200B3E0 132 17D03D32 18D0.53 
1410 DATA 18291 1FED2CD2000200B3EFF3218D0 
3C3217D018161 13ED1CD200020 133A18D0 , 76 
1420 DATA 473A17DO3218D0783217D03EF83227 
D0003A28D03C3228D0FE0 120053E003228,C6 
1430 DATA D0FE00C228D93A13D0320AD03A1AD0 
320BD0CD00D52A08D03E00773A19D0473A,EE 
1440 DATA 1BD0803219D0320AD03A1AD0473A1C 
D08032 1 AD0320BD0CD00D52A08D03E0377 , 28 
1450 DATA 1 152D3CD2000200B3EFF32 1BD03C32 
1CD0 18291 141D1CD2000200B3E0 1321CD0.UB 
1460 DATA 3D321BD018161 141D3CD200020133A 
1CD0473A1BD0 321CD078321BD03EF83228, A2 
1470 DATA D0C328D9000000003A05D0CB27CB27 
CG282 12A76CD770 1C93EA832A0FD3EDA32 , 43 
1480 DATA A1FD3EFB32A2FD3EC932A3FD2 100D4 
221DD02120D422 1FD02 100002 22 1D02 222,23 
1490 DATA D03ECD329FFDC900F33A21D03CE607 
322 1D0FE00C03A23D03DFE0020023C0032.92 
1500 DATA 23D05F3E09CD93003E0ACD93002A1D 
D07EFE2028287E5F3E0GCD93003E08 IE 10 , 99 
1510 DATA CD93003E0B1E30CD93003E0CCD9300 
3E0D1E00CD93003E07 1E31CD93002322 1D.20 
1520 DATA D01 1 1 0D4CD2000C2 1 0DB2 1 00D422 1 D 
D02A1FD07EFE20282A5F3E02CD93003E04, AB 
1530 DATA 1D1DCD93003E031E00CD33003E05CD 
3300 1E0F3E09CD93003E0ACD93003E0F32,F7 
1540 DATA 23D023221FD01 160D4CD2000C02 1 20 
D422 1FD03A24D03C3224D0C30000000000 , 98 
1550 DATA 3E003226D0CDA0D7CD68DACD28D5CD 
50D73A00D0CB27CG50212D7GCD77013A0 1 , CD 
1560 DATA D0CB27C6A3212C76CD770 1CD23D33A 
26D0FE00C0CD40D33A26D0FE00C03A24D0 . F7 
1570 DATA C68E32B5FC3E0032B6FC21250022B3 
FC0 10A00ED5BB5FC3E0 132F2F33E003*02 , 3C 
1580 DATA FBDD21CD00CD5F013A24D0FE41C8C3 

60DB00000000000000000000000000000Q,26 

1590 ' DATA OF WORKAREA ::::::::::::: 

1G00 DATA 00FF01000001FF000007 1620^92E3^ 

36393B3C3D3F3F3F3F0000000300000003 

1610 DATA 7200000300005401C6000003400054 

1G400540 18000540 1 9400540 1A2005401 

1G20 DATA rtC00540 1b400540 1B40054Ulb400L.4 

10080208 1408260838084A085C086E087 

1630 DATA 0083208A408B608C00000000000000 

00080C1010 1415 18 1819 1A1C1E00000000 

1640 • DATA OF BGM C DRUM&MELODY J :::: 

1650 DATA "! !!0 !0 !0 Hi! !!0 000 024 
6 8 <• q X o ~ q -> X -? ~" -> ~ q 

16G0 DATA "q x-jx->~_U_U G U _ U 

1670 ' DATA OF MAP :::::::::::::::::: 

1680 DATA FFFFFFFFFF80000 1803EFFFDBFBE88 
05A080A3F5BDF7BF5595540045B557BKFD 

1690 DATA B5502001B55FEFFDA0140005BFD5FD 
F580 155555BFD40405A0 17F7FDAF770201 

1700 DATA A0417EFFBFDDC0FD80001E01FFFFFF 

FF00000000000000000OQ0000000000000 

1710 DATA FFFFFFFFD580000 1803FFFFDAAAAD4 

05A0208175AEFEFD75A2820945BEAABF5D 

1720 DATA A8AEE9D5AA80AD55A2EBAD15BA2BA0 



45A3A83FF5A8AFE085AEA00FADABBF7821 

1730 DATA A8207EABBFEAC7BF80001001FFFFFF 

FF0000000000000000000000000000000Q 

1740 ' SPRITE PATTERN DISK WRITE ! ! : : 

1750 SCREEN2 : COLOR 15,0,0: CLS : COLOR=< , 3 , 

3,3):A$="2319141 10806050403020 1" 

17G0 ' ROCK :::::::::::::::::::::::::: 

1770 FORI=0TO2:FORJ=0TO3: A=VAL(MIDS< AS, C 

I*4+J)*2+l,2>) 

1780 LINEC192,0)-C240,48),0,BF:CIRCLE<21 

6, 24), A, 15:PAINT<216,24), 15 

1790 IFA>2THENFORK=0TOA*3:PSET<RNDC 1 )*A* 

2+216-A.RNDC 1 >*A*2+24-A> , : NEXT 

1800 F0RK=24-AT023+A:F0RL=24-AT023+A:PSE 

T C L+ J*48 , K+ 1 *48 ) . PO I NTC L+ 1 92 , K ) 

18 10 NEXTL.K, J, I :AD=0 

1820 FORG=0TO2:FORH=0TO3:FOR1=0TO2:FORJ= 

0TO2 : FORK=0TO 1 : FORL=0TO 1 : FORM=0TO7 

1830 VPOKE&H2000+AD, VPEEKC M+L*256+K*8+J* 

16+1*5 1 2+H*48+G* 1536): AD=AD+ 1 

1840 NEXTM,L,K, J, I , H, G : BSAVE"0R1-SPR1 . SP 

R" , &H2000 , &H2FFF , S : COLOR 15 , 0,0: CLS 

1850 ' FLAG ::::::::::::::::::::::::: 

1860 FOR I =0TO2 : FORJ=0TO3 : A=VALC M I DSC AS , C 

1 *4i J )*2+ 1 ,2)5: DRAW"S"+STRSC A> 

1370 PRESETCJ*48+24-A*.5, I*48+24+A) : DRAW 

"ClM+0,-8M+3,+lM-3,+l":NEXTJ, 1 : AD=0 

1 830 FORG=0TO2 : FORH=0TO3 : FOR 1 =0TO2 : FORJ = 

0TO2 : FORK=0TO1 : FORL=0TO1 : FORM=0TO7 

1890 VPOKE&H2000+AD,VPEEKCM+L*256+K*8+J* 

16+1*5 1 2+H*48+G* 1536 ) : AD=AD+ 1 

1900 NEXTM,L,K, J, 1 , H, G: BSAVE"OR 1 -SPR2 . SP 

R" , &H2000 , &H2FFF, S: COLOR 15 , , : CLS 




MttJimzi^-'Jl 



V X K 1 



1000 COLOR 15. 0.0: SCREEN 1 . 2 , : KEYOFF 

10 10 W IDTH32 : CLEAR500 . &HA000 : DEF 1 NTA-Z 

1020 DEFUSR=&H7E:A=USR<0) 

1030 ' 1N1T 

1 040 FOR I =33TO90 : FORJ=0TO2 : FORK=0TO3 

1050 VPOKE&H2000+I*8+J*&H800+K,&H71 

1060 VPOKE&H2004+I*8+J*&H800+K,&H51 

1070 NEXTK, J:FORJ=0TO7:VP=VPEEKC 1*8+J> 

1080 VP=VPORVP*2ORVP*4:FORK=0TO2 

1030 VPOKEI*8+J+K*&HS00, VP:NE*Tk. J. 1 

1 100 FORI=0TO6:READPT$,CL$:FORJ=0TO31 

1110 PT=VALC"&H"+MID$(PTS, J*2+l , 2 > ) 

1 120 CL=VALC"&H"+MIDS(CL$, J*2+l ,2)) 

1 130 FORK=0TO2:VPOKE768+I*32+J+k*&H800,P 

T : VPOKE8960+ I *32+ J+K*&H800 , CL : NExTK , J , I 

1 140 FORI=0TO2:NB$=RIGHTS(STRS( I), 1) 

1 150 BSAVE"RESQ-PT"+NB$+".DAT",264+&H800 

*I ,991+&H800*I ,S:BSAVE"RESQ-CL"+NBS+".DA 

T".8456+&H800*I , 9 183+&H800*! , S:NEAT 

1 160 FOR1=0TO5:READDT$:FORJ=0TO31 

1 170 DT=VALC"&H"+MIDS<DT$, J*2+l ,2)) 

1180 VPOKE&H3800+ I *32+J . DT : NEXT : NEXT 

1 190 BSAVE"RESQ-SPR.DAT". 14336, 14527.S 

1200 FOR 1 =0TO 1 2 : READAS : FORJ=0TO3 1 

1210 POKE&HA000+I*32+J.VAL("&H"+MIDSCAS, 

J*2+ 1 , 2 > ) : NEXT J . I : BEEP 

1220 BSAVE"RESQ-BGM . DAT" , &HA000 , &HA 19B 

1230 ' CHARACTER 

1240 DATA 60AA556060AA55600CAA540C0CAA54 

0C55AA5480008055005480010015AA5500 

1250 DATA 8192916181969161819G91G1819C91 

6141414141414141414141414141414141 

1260 DATA 0F7F7F7FF8E0C0C0F0FEFEFEFEFEFE 

FE80808080807F7F0D030307 1FFEF4AA50 

1270 DATA 919191919898989891919181868686 

8698989898 186 16 16 1686868686 16 16 161 

1280 DATA 0F7F7F7FF8E0C0C0F0FEFEFEFEFEFE 

FE80808080807F7F0D030307 1FFEF4AA50 

1290 DATA 3131313132323232313131212C2C2C 

2C32323232 12C1C1C1C2C2C2C2C1C1C1C1 



1300 DATA 0F7F7F7FF8E0C0C0F0FEFEFEFEFEFE 

FE80808080807F7F0D0303071FFEF4AA50 

1310 DATA 717171717575757571717151545454 

5475757575154141414545454541414141 

1320 DATA 3E7F7F03FE577C3C070 170F8F8FC7C 

7C77FFFFFE7FFFFFEE101038387C7CFEAA 

1330 DATA C5C1C1C4E1E1E4E45151312 12 1C4C4 

C4515151515151515181E1E1B1B1F1F1F1 

1340 DATA 3C3C3C3C3C3C3C3C000000FFFF0000 

00E0381C0E0E0607070707070E0E1C38E0 

1350 DATA F1B1A1A8A6A1A1A100000088660000 

0071717171515151517171717151515151 

1360 DATA 031C38787070F0F0F0F0737478381C 

03C0381C1E0E0E0F0F0F0FCEF67A783C8F 

1370 DATA 717171715151515171717171515151 

5171717171515151517171717151515151 

1380 ' SPRITE 

1390 DATA 070B171F1F1C1C1C0E336CF7690E0E 

0FB0797879B008A8A810EC16F7EAD838BE 

1400 DATA 070B171F1F1C1C1C6EF36C2F133D78 

1EB2787978B208A8A816EF16F4E8DD3F1C 

1410 DATA 0D9E1E9E0D101515083768EF571B1C 

7DE0D0E8F8F838383870CC36EF967070F0 

1420 DATA 4D1E9E1E4D10151568F7682F17BBFC 

38E0D0E8F8F838383876CF36F4C8BC1E78 

1430 DATA 030C1F1F1F1F175BEFF36C0F173B3C 

78C030F8F8F8F8F8F8F0CC16F3EDDE0000 

1440 DATA 830C1F1F1F1F171B0F3368CFB77B00 

00C030F8F8F8F8F8FAF7CF36F0E8DC3C1E 

1450 ' BGM 

1460 DATA F3AF32C1A02 1C2A0060E5ECD93003C 

2310F821D0A01 1E2A00 1 1200EDB02 19FFD 

1470 DATA 1 15DA0010500EDB02135A01 19FFD01 

0300EDB0FBC9C338A0F5C5D5E53AC1A0B7 

1480 DATA 20712 1E9A006025E23562B7AB32813 

1B73237221F2A010EFE1D1C1F1FBF78BD4 

1490 DATA 7FC9C5E52B2B462B4E2B562B5EE562 

6BBFED42E1200A2B462B4E232323231806 

1500 DATA 030303032323712370237EE5606906 

025ECD93003D2310F8D1 13 137E12 1B237E 

15 10 DATA 12E1C13E01B828AB3ACFA05F3E0DCD 

9300 18A0F32 15DA0 1 1 9FFD0 10500EDB0 18 

1520 DATA 970100000000000014B80E100D0014 

03F4A088A1F0A00300008CA138A188A105 

1530 DATA 0000F4A088A1 14A10300008CA198A1 

30A1 05 000 1AC00 0F0 1 7D000F0 1 7D00 0F 

1540 DATA 01AC0007017D000F017D000F01AC00 

070 17D000F0 153000F0 1AC000F0 17O000F 

1550 DATA 017D008F01AC0007017D000F015300 

0F01 4000070 153000F017D000F01AC000F 

1560 DATA 17D000F0 17D000F0 1 AC00070 ! 7D00 

0F0 17D000F0 1AC00070 17D000F0 153000F 

1570 DATA 0000000F01AC000F0000000F0 1AC00 

0F0000000F017D00070 17D00070 1530007 

1580 DATA 015300070140000701400007054E00 

3F05F4003F06AF003F05F4003F 



h 2 



FILEl 



1070 ' 

1080 OPEN"RESQ-SCN.DAT"ASttl 

1090 FIELDttl . 1ASSVSC0), 1ASSVSC 1 ), 1ASSVSC 

2), lASSVSO), 160ASSVSC4) 

1 100 FORI=1TO15:FORJ=0TO4:READDT$ 

1110 LSETSV$CJ)=DT$:NEXT:PUTH1 , 1 

1 120 PR I NT "SCENE"; I : NEXT : CLOSES 1 

1130 ' F1 L E2 

1 140 OPEN"RESQ-SAV.DAT"FOROUIPUTAot*l 
1150 PRINT81 , 0:CLOSEW1 

1190 ' DATA 

2000 DATA "4", "4","1","2","JJJJJJJJJJJJJ 

JJJJJJJJKPGJJJJJJJJJGJJJJJJJJJJJJJJJJJKQ 

HJJJJJJJJGJJJJJAAAAJJJJRJJJPJJPkJIFDACJR 

JJJJPJJKJJJIJQKQJJJJJPJKJJAJJJJJGJJJJJ1R 

RHAQPPGPJJJJJPJJJJJJJJJPJJJ" 

2010 DATA "6", "8", "3", "2". " JJJJJJJAAJJJJ 

JJJJJJJJJAAAAJJJJJJJJJJJJJJJJjjjjjjjjjjft 

AAAAAAAJJJJJJJAAAAAAAAAAJJJJJJAAAAAAAAAA 

JJJJJJJNPJJJJPMMJJJJJJBGNAGGAJGBJJJJIAB1 

E AHG A AHBA I J J 1 ABDGGNGGCABA 1 J " 

2020 DATA "4", "9", "2", "2", "JJJJJJJAAJJJJ 

JJJJJJJJJAAAAJJJJJJJJJJJJJJJJJJJJJJJJJJa 

AAAAAAAJJJJJJJAAAAAAAAAAJJJJJJAAAAAAAAAA 

JJJJJJJNPKJJJPNJJJJJJGBGPJGGAJGBGJJKIABH 

AAGHAEHBA 1 KD I ABACHGNGGEBA I D" 



119 



2030 DATA "0". "0" , "1", "2", "AAEEAAAAAAGGG 

JJJGJHHHI IBAAAAJJJJJJJJJJJBAJJJJJJBJDAAA 

GJBAJJAAAABJJJJAGJBJJJAAEABHCAJJJJJJJJAB 

GGIGGAAJJBAAJJABAAJABAAJABHHJJA6AEJABAAJ 

IBAAJJHAAJJGGAJJIHHAJGAGJJJ" 

2040 DATA "8" , "8", "2", "3", "AAAAAJJ J J J JCJ 

JJJAAJJKPPQQ1 1 IHJJFJJJJKJJAAADAAAIQJJJJG 

JBGGHH I AAGB J JBJKABAAAEDG 1 ABJ JGJkABAAAB 1 H 

AABJJJJBAJJJAAHAAAKJJJJBAAGGGIGAAJJJJJAB 

AAIABBEKGQPJJJFIHPJPHBGJNNN" 

2050 DATA "5", "3", "2", "3", "ABAJKKBKKJJJA 

HI IABJJAEBAAJJJAAJJJJJAAGAAAAJAAAJJJJJAG 

AEHEPPAAAJJJJJBAGCGDGJJDJJJIJJJBAPJPAJPG 

JJJAAJJABAJEEJJJJGBGHJJJAGJJAAJJAABJJJJJ 

JAGJAJJJAAAJJJOJJJABAAAOAJJ" 

20G0 DATA "8 " , "3" , "3" , "3" . " J J JAJ J JJ J JJ J J 

PJJJJAGAJAAALJJNPQKPJGGBIHGJKJJBGJBEAAHB 

AJ JAAAAAHABAAAHBPJ J I H I GHAABAJ JHBGAPOAAAA 

DAB JP JRKGH I AA I EAB JKAMO I BAEHBADGA J JBPU I 1 H 

HBAKPHBGGOBDJJAEABOKNPKJJJB" 

2070 DATA "0","5"."1","3"."JJJJEEEEEEEEJ 

JJJJJGGGGHHHHI I I U J JBAAAAAAAAAAAABJ JBAAA 

AAAAAAAAABJABAAAAAAAAAAAABAABAAAAAAAAAAA 

ABA1 IHHGGGGGGGGHH1 I J I IHHGGGGGGHHi 1JJJI IH 

HGGGGHHI I J JLJMPAAAAAAACPJ J J " 

2080 DATA "9'". '"4", "3" . "4", " JPJ JAAAAAAAAA 

AALE 1 KHG I HBG I HG I J JKRRKAABAAAAAAAAAJ JAKAA 

JHG I BEAAAABJBHJ 1 EDGAAHAAAEBABAAl IGF JBGJ A I 

ABBABKG U J J JBJHHJ J JBH I BJ I GJEJ U JDABJ AAJD 

AHB 1 FABOGFBJAAA I JRBAABPOJ JB" 

2030 DAfA "0", "0", "3", "4", "AAAEAJJ JEAAAJ 

PJLGABGGFJBGGGGGGJRJGEAAAABGJGJGAAKJAGGA 

DABGJGJNGJKJAAAGJJKPGNGGAABJAAAAAGBGJGGG 

EJBJGGBAGGBGOEJPGFBJAAAGLGBPFJPJPNBDFAGJ 

PPBGGAPPJNBJJGJJJJKPJPJAADB" 

2 100 DATA "9", "4", " 1" , "4", " JJAAAAAJEJ J JJ 

JAAJJGJIHJRPPKJ1HBAJJJFJJJJJJKJJJBAJJJJJ 

JAEGJKJJJJJJBAJJRADHAJAJJJJGBAAJPJRAGPAJ 

AEJABAIJJRJJBJAGAAAJBEHJAICAKJAGIIAJJJJP 

JJRQPPAJQAJJJBJJPJBJQJJJQJJ" 

2110 DATA "0", "7", "1", "4", "KJKJKJKJKJKJK 

JKJKJKJKJKJKJKJKJKJKJKJKJKJKJKJKJKJJKJKJ 

KJKJKJKJKJKKJKJKJKJKJKJKJKJKJKJKJKJKJKJK 

JKJKJKJKJKJKJKJKJKJAAAAAAAAAAAAAAAAHQHQH 

QHQHQHQHQHMAFAFAFAFAFAFAFAC" 

2 120 DATA "2" . "7". "2", "5", "AJJ JJQNJJ JJJH 

JJAAGKJJPQEIJJJHJCJAJKJJPQBABHIJJGJAFKJN 

JPJJBGJJJJJAGHKPKPJJKGHJBBJAHJKNAGAJJBDH 

JBJL I AAGB 1 AJ JBGGABJFEAAABHDBHGGAAEA I HGBA 

BAH I JPJBGH I AAABAAAAAJ J JBAAA" 

2130 DATA "3", "1", " 1 " , "5", " J J JJ JJJJJJJJJ 

JJJJRIAAJJNAI 1AAJJJJAIHAAAAAAHBAHJJJJJJE 

HEGGJJBGHJJJJGJAGDGJGFBJJJJJNHAHAGJJNJBJ 

ICJJNGBHAAAPGH1J1 IJJPPJJI 1 AEAAABJ JJ JJ JJJ 

JJGAAAABJJBBAAFAAAFBAAJJJJB" 

2140 DATA "0", "9", "0", "5", "ACAAAAAAAAAAA 

ABAHBHHHHHHHI I 1 1 1 1 1 ABAAAAAAHHHH 1 I 1 IABAAA 

AAAAAAHHH I 1 ABAAAAAAAAAAAAH 1 ABAAAAAAAAAAA 

AHHABAAAAAAAAAAAAAHABAAAAAAAAAAAAAHABAAA 

AAAAAAAAAAHABAAAAAAAAAAAAAH" 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1 1 10 
1 120 
1 130 
1 140 
1150 
1 160 
1 170 
1 180 
1 190 
1200 
1210 



RESO-CORPORAT I ON 
program NAKA Q for MSX 

test play ys48 & 0£L 1992 



COLOR 15,0.0: SCREEN 1.2,0: KEYOFF 
WIDTH32 : DEF 1NTA-Z: CLEAR500 . &HA000 
DEFUSR=&HA000 : DEFUSR 1 =&H90 
DEFUSR4=&H7E: A=USR4C0 > : GOTO2600 

' MAIN 

GOSUB2 130 : ES=PEEKC 3.HFBEC )AIID4 

KX=CX+X : I FES=0THENGOTO 1 660 

1FS=0THEN1 100 

IFKX<0ORKX> 15ORCY+Y<0THEN1 100 

IFT2THENGOSUB1410:GOTO1 100 

I FT 1 THEN 1560 

I FOD> < 1 ANDS= 1 THEN 1 1 00 

GOSUB2 190: 1 FDT >5THEN 1 100 

GOSUB1340: I FDT > 1 THEN 1260 

IFDT = 1THENM00 

• UNDER CHECK 

X=0 : Y= 1 : GOSUB2 1 90 : ED=DTM0D9 



1220 1FED>50RED=1THEN1 100 
1230 1FDT>8THENGOSUB1420 
1240 SU=32:X=0: Y=l : GOTO 1 170 

1250 ' TAKE 

1260 X=0:Y=0:ONDT-2GOTO1280, 1300, 1660 - 

1270 IFRQ>0THEN1210ELSE1870 

1280 RQ=RQ-1 : LOCATE 18, 1 :PR1NTRQ 

1290 GOSUB2 170: SU= 1 6 : GOSUB 1 340 : GOTO 12 10 

1300 IF HM THEN 12 10 

1310 FORI=0TO10: VPOKE&H 1 B03 . 1 :NEXT:HM=1 

1 320 G0SUB2 170: SU=80 : GOSUB 1 340 : GOT 01210 

1330 ' MOVE 

1340 SOUND 1 , 0:KX=CX*16:KY=CY*16+23 
1350 VPOKE&H 1 B02 . PC S ) : FOR I =0TO 1 6STEP4 
1360 SOUND0 , SU+ 1 : VPOKE&H 1 B00 , KY+ I *Y 
1370 S0UND8 .14: VPOKE&H 1 B0 1 , KX+ 1 *X : NExT 
1380 VPOKE&H 1 B02 . PC S >-4 : CX=CX+X : CY=CY+Y 
1390 SOUNDS , : SU=64 : OD=DT : RETURN 

1400 ' DIG 

1410 GOSUB2 190: IFDTOTHENRETURN1 160 

1 420 KX=CX+x : KY=CY+Y : L0CATEKx*2 , KY*2 +3 

1430 ED=DTM0D9:PRINTCH$CED> 

1440 SOUND0 , : FORI =0TO2 : FORJ=0TO9 : SOUND 1 

, 200+J*2 : S0UND8 , 13+ I : NExT : NEXT : S0UND8 , 

1 450 AD=&HA 1 9C+KY* 1 6+KX : FOR I =0TO 1 

1 460 POKEAD+ 1 * 1 76 . ED : NEXT : RETURN 

1470 ' CRACK 

1480 GOSUB2 190: IFDT<60RDT>8THEN1 160 

1 490 SOUND0 , : FOR I =0TO2 : FORJ=0TO9 : SOUND 1 

, 200-J*2:SOUND8, 15-1*2 : NEXT J , I : SOUNDS , 

1500 DT=DT-1 : IFDT=5THENDT=0 

1510 KX=CX+X : KY=CY+Y : L0CATEKX*2 , KY*2+3 

1520 PR I NTCH$CDT):HM=0: VPOKE&H 1B03, 15 

1530 P0KE&HA19C+KY*16+KX,DT 

1540 IFS03THEN1 100ELSE12 10 

1550 ' JUMP 

1560 IFHMTHEN1480 

1570 00=00: Jx=x:x=0: Y=-l :GOSUB2190 

1580 IFDT>5ORCY=0ORS=3THEN1 100 

1590 SU=48: GOSUB 1340: IFDT=1THEN1 100 

1600 IFDT>1ANDDT<6THEN1260 

1610 X=JX:Y=0:GOSUB2190 

1620 IFDT>8THENGOSUB1410 

1630 IFDT<6THEN1 180 

1640 IF00=1THEN1 100ELSE1240 

1650 ' DEAD 

1660 GOSUB2250:DM=DM+1 :FORI=0TO5 

1670 FORJ=0TO5:VPOKE&H1B02, J*4 

1 680 FORK=0TO 19 : NEXTK , J , I : A=95~CY*8 

1690 FOR 1 = 1 TOA : VPOKE&H 1 B00 , CY* 1 6+24+ I *2 

1700 NEXT: IFLM=0THEN1790 

17 10 LN=4:GOSUB2210:GOSUB2 160 

1720 L0CATE8,9:PRINT"= YOU ARE DEAD.=" 

1 -,-■ j ul L0CATE9, 1 1 :PRINT"DEAD MEMBERS" ; DM 

1740 L0CATE9, 12 : PRINT"LEFT MEMBERS";LM 

1750 L0CATE13, 14: PR INT"PUSH A. " : L0CATE5 , 

15:PRINT"0R THEY WILL BE.. DEAD!" 

1760 GOSUB2150: IFT 1=0THEN1760 

1770 PLAY"S9M2000O6L16FFFGGGB":GOTO2500 

1780 ' ALL DEAD 

1790 LN=5 : G0SUB22 1 : G0SUB2 160: L0CATE5 , 8 

1800 PRINT"= FAILED THIS RESCUE. =" 

1810 L0CATE12, 1 1 :PRINT"ALL DIED." 

1820 L0CATE5, 14: PRINT'XOME BACK TO RESCU 

E US" :L0CATE13, 16: PRINT"PUSH B" 

1830 GOSUB2150: IFT2=0THEN1830 

1840 PLAY"S9M2000O3L8FEDEDC" : LOCATE0 , 23 

1850 FOR1=0TO22: PRINT : NEXT: GOTO2280 

I860 ' CLEAR 

1870 GOSUB2250 : FORJ=0TO7 : SU=72-J*8 : X=0 
1 880 Y=0 : S=C JM0D2 >*2+2 : GOSUB 1 340 : NExT 
1890 GOSUB2160:SL=SL+1 : IFSL=15THEN2000 
1900 0PEN"RESQ-SAV.DAT"F0R0UTPUTAS**1 
19 10 PRINT**1,SL:CL0SE**1 : LN=5 : G0SUB22 10 
1920 L0CATE9,8:PRINT"= COMPLETED! =" 
1930 LOCATE 1 1 , 1 1 :PRI NT "THANK YOU." 
1940 L0CATE8, 14:PRINT"G0 TO NEXT SCENE. 
1950 L0CATE13, 16 : PRINT"PUSH A." 
1960 GOSUB2130: IFT 1=0THEN1960 
1970 LOCATE0 , 23 : FORI=0TO22 : PRINT : NEXT 
1980 GOTO2440 

1990 ' ALL CLEAR 

2000 GOSUB2240:FORS=1TO4:SU=72 

20 1 GOSUB 1 340 : FORJ= 1 TO200 : NEXT : NEXT 

2020 GOSUB2240: A=USRC0) 



2030 X= 1 : S=2 : FORJ=0TO 1 2 : GOSUB 1 340 : NEXT 

2040 X=0:S=1 : GOSUB 1340: CLS 

2050 FOR I =23T0 143: VPOKE&H 1B00, I -.NEXT 

2060 LOCATE0,20:PRINTSTRING$C64, "r" ) 

2070 GOSUB2240 : FOR I =0TO6 : FORJ=0TO 1 4- 1 *2 

2080 L0CATE8, 18-J : PRINTEDSC I ) 

2090 PRINTSPCC24):FORK=1TO300:NEXTK, J. I 

2 100 FOR I = 1 TO5000 : NEXT : GOSUB2250 

2 1 10 GOSUB2160:CLS:GOSUB2240:GOTO2280 

2120 ' SUB 

21J0 S=CCSTICKC0>ORSTICKC 1 ))+l >¥2 

2 140 x=xCS): Y=YCS) 

2 150 T1=-CSTRIGC0)ORSTRIGC 1 ) > : T2=-CSTRI G 

C3 50RCPEEKC&HFBE9 )AND8 >=0 > : RETURN 

2 160 PUTSPRITE0, CO, 208): RETURN 

2 1 70 L0CATECX*2 , CY*2+3 : PR I NTCHSC > 

2 180 POKE&HA 1 9C+CY* 1 6+CX . : RETURN 

2190 DT=PEEKC&HA19C+CCY+Y)*16+CCX+X)) 

2200 RETURN 

22 10 A=l :FORI=0TOLN:FORJ=0TO1 

2220 L0CATE4, 12+I*A: PRINTSPCC24) 

2230 A=-A : NEXT : NEXT : RETURN 

2240 FORI=1TO1000: NEXT: RETURN 

2250 POKE&HA0C1 , 1 : A=USR1 C ): RETURN 

2260 GOSUB2250:SCREEN0:END 

2270 ' TITLE 

2280 FOR I =0TO3: LOCATE 1 1 , 10+1 :SL=1 

2290 PRINTTTSC I > : NEXT : PLAY"V 1 306L64CDEF 

2300 GOSUB2150: IFT 1THENPLAY"B"ELSE2300 

2 3 10 LOCATE© , 2 3 : PR I NT : PR 1 NT : LOCATE 12.13 

2320 PR I NT "NEW GAME" ; SPCC56 > : "CONT INUE" 

2330 FORI=1TO50:NEXT 

2340 PUTSPRITE0, C76, 100+SL*16;, 15. 1 

2350 GOSUB2 150: IFT 1=1 THEN2380 

2360 1FT2=0THEN2350ELSESL=SLXOR1 

2370 PLAY"D":FORl=lTO100:NExT:GOTO2 340 

2380 GOSUB2 160:PLAY"BC" 

2390 FOR I =0 TO 1 9 : LOCATE0 . 2 3 : PR 1 1 1 T : NExT 

2400 " SI ART 

2410 IFSL=0THEM2440 

2420 OPEN"RESQ-SAV.DAT"FOR INPUT ASH 1 
2430 INPUT81 , SL: CLOSE** 1 
2440 OPEN "RESO-SCN. DAT" ASH 1 
2450 F1ELDH1 , 1ASXS, 1 ASYS , 1ASRS. 1ASLS. 160 
ASSC$:GETttl,SL+l : CLOSE** 1 :MM=VALCLS> 
2460 L0CATE14, 10 : PRINT"WAIT" : DM=0 : LM=MM 
2470 LOCATE 14, 12: PRINT" lm hi de" 
2480 LOCATE10, 13:PRlNT"tu no> j k.>f g" 
2490 FOR1=0TO175:POKE&HA23C+1 .ASCCMIDSCS 
TR1MGSC 16,73)+SC$, 1+1 . 1 > )-65 : NEXT : CLS 
2500 RQ=VALC RS ) : CX=VALC X$ ) : CY=VALC Y$ -> 
2510 LM=LM-1 :L0CATE4, 1 : PR1NTUSING"SCENE 
**** RESQ ** LEFT **" ; SL+1 ; RQ; LM 
2520 A=0:FORI=0TO9:LOCATE0, 3+1*2 
2530 FORJ=0TO15:DT=PEEKC&HA24C+AJ 
2540 P0KE&HA19C+A.DT: I FDT>8THENDT=9 
2550 PRINTCHSCDT); :A=A+1 : NEXT: NExT 
2560 PUTSPRITE0,CCX*16,CY*16+23). 15,0 
2570 SU=64:HM=0:OD=0: IFSL=14THEN1 100 
2580 A=USRC0):GOTO1 100 

2590 ' INI I 

2600 FORI=0TO2:NB$=RIGHr$CSTR$i. I > . 1 > 

26 10 BLOAD"RESQ-PT"+NBS+" . DAT " . S: BLOAD"R 
ESO-CL"+NBS+" . DAT" . S: NEXT 

2620 BLOAD"RESQ-SPR.DAT",S 

2630 BLOAD-RESO-BGM.DAT" 

2640 FORI=0TO3 : READTTSC I ) : NEXT 

2650 READA$.BS:FORI=0TO10:CHSC I ;=niDSCAS 

, 1*2+1 ,2)+STRING$C2.29)+CHR$C31 J+MIDSCBS 

. 1*2+1 ,2)+CHR$C30):NExT 

2660 F0RI=lTO4:READxC I), YC I ),PC I > : NExT 

2670 FORI=0TO6:READEDSC I ) : NEXT 

2680 ONSTOPGOSUB2260 : STOPON 

2690 xC0)=0: YC0)=0: SN=0 : GOT02280 

2700 ' DATA 

27 10 DATA "NEW PUZZLE"." xzv " 
2720 DATA " < RESyCw >"," CORP. 
2730 DATA "be ' axzrrbcbcdeh l lrnrr "' 
2740 DATA "cb * ay Cpqtussf g j knor r " 

2750 DATA 0,-1.20.1,0.4,0,1,20.-1.0,12 

2760 DATA "RESQ CORP . C 1 992 >' , " MS, 2 -«: + 

.'TR "," DESIGN NAKAO " 

2770 DATA " PROGRAM NAKAQ "," BGM 

NAKAO " , " THANKS YS48 " 

2780 DATA "THANK YOU! END" 
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*%S(7)(zta hUtz[tt(T>m% 

fc*o t tti&t w$k.ow$bteht£tz 

&5L'0tttz^b(n o i^(7)HA^ 
•y hT- r ^*6S LT zn^bfcct 



1. I wanted to eat a delicious burnt bird in the shop 
"Burnt .%%%: 

2. However, time zone was bad and the seat did not become 
empty. 

3. However, I can see the face of a good-looking clerk 
and am happy. 

4. In the editing part of the magazine of a certain personal- 
computer, there is a person who works in an aggressive 
attiude day and night. 

5. He is "Floopy disk workman" and enemy name 

&*.-cv»a. 

6. He has the yell also to drinking sake. 

7. Sooner or later, his completed liver is taken to "Burnt S<R^". 
Have makeing f 0) to be burnt of the salt and to come. 

8. Man's who hangs of "Drinking prohibition" and the techinical 
knockouton a medical verdict by the checkup liver is surely 
delicious. Then, I think. 



1 . I wanted to eat delicious yakitori at the restaurant 
called "Yakitori club." 

2. But unfortunately, when I went to the restaurant, 
it was very crowded and there were no seats. 

3. However, I was happy because I could see the face 
of a good looking guy working there. 

4. I know an editorial staffs of a certain personal 
computer magazine who works in an aggressive 
way day and night. 

5. His nickname is "Floopy Disk Workman." 

6. He also drinks alcohol in a throughgoing way. 

7. Someday or other, I am planning to bring his 
intoxicated liver to the "Yakitori Club" to make 
it broiled with salt. 

8. I think his liver must be wonderfully delicious, judging 
from the fact that he was ordered by a doctor to 
abstain from drinking when he went through a 
physical checkup. 
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Z<7)±#^<7)*±#-?T(7)£ S h 






fc-A,TS*^3?i££x 4-xfc 
^i^S(n%tt<n&ifr s $ffc 

% bt b AFsWl^tfAJf^A-fc 
fcu-3 *ttK* £, H-?x^sz 
£ £ A L 4- 1 *<7)a«=gFii£f ^ o 

X fe, * -? I ^9 *%m(F)1timz K 
•y 7° U : Mfr -otzb (D(DMJj-o T, 

fioX, -^ft^o *>*>?£, T 
<'3(F>mizfaZ>b(7)X'£z., &z. 
% <k-?xlzi z£frfa% it 
^ztt±Lx^z>mn£. *mt 

b<7)TZ\'< tz < $A,(F>Wm$:aA, 

x^z>A,tztf£\ ?i^imm<n 

&A,T* ^?*rbl2<frtftfzgfr5H;}: 
•bJtJ^T^^To %n?Z£s * 

£tz-?XfaZ>A,tz£teo 

mz y to^i^m^mifrfa 

itzZ£ Hftfro ^Xs %1 X'K 

^%jjxim&s.z.te&T£s a 

bL*>^b(Dfr^-ol l $^M J A.Z>£ 



&2rofc % £fLU *#£§* *<£* 
fcf-t*& 

tz£z.ti%Btz<Kitz, B* 

(J* AmWn&foT^Xtztig 
ft t A&£'V-)::£frJIJfcV& it 

£^c7)*±#oX#;Lli, 4-U* 
&*-H^ fc<7>ttA£<fcta-3Tx 
ftXfeJSoc^X^o *-H» 
-? b<n<n%jj<r)*frhs tz<£A, 
<nz£frmbfrlz$tiX\.^Z> X 

§ toe* *±^£ ^ •? loeciaKtt 

fcv7)A<£&T*fcA,T* ftfc®^ 

£z*>a^isc*a,iJx if -H^ 
*3tt*\ £"A,fc£ # Wz b*±£fr 
fa&£l^Z£^ to&t&y & 

1 941^11 fflfiKS tltz r ±&<7)t£^j 
JHtt<*bC/A<x *±££8£& *± 



*-»£* (J<3fEHSi^LT*«J:'7o 
S-f, APaWt^T^'A^k 
mfrt^nt, KCtt»i:*IU 
£ ygottl1±fc^fc&&tf>A 

^Tt^, ASAttAWM/fL 
££Atil*]Mo H&&M& £& 

frhs tS"E.Wz±frLfar>X\.^ 
\.^\^t£$mtf&%>frbs $ 

oms&tf&zfrb. £<<nAfr& 

\.\X*>*mtfZ<ni:ffl$iZs ±%i 

(F)tz>sb(nhh<ft : &*f— } d*%: s fa 

t u ^5^1" s z i: aar < ¥i- An* 

iri^-p bcnfrfa-otzfrh. tzfr 

XfrZt, ZA,t£lgffl.<n±£%BX- 

b, ffl^c7M@#l-(i, ii#^#tt 
frWbr>X\.^ 

m\±frfa n s ttiftunmifr 
n c fc<7)*¥cAn«fc -5 2:mt= 

BW^"*-wi:fcWt^U Plbtl^: 
tiMS«Lo < LT L i -5 C t 

^SOT-ttl^tfT-x XZhtzMz 
< $ A,<7>^# feCO^)\ Mfcft < ^ 
# %tzisbiz s <$l-tm*£b<nt£Mz 

* c t fr'M<mx\ m&r ^±£fr 



tt# £ l> -5 Wft^A U -5 * £ ^ -5 

z^u^^t^ zftA^&c 

%£.£ti<n£W£izii.tj:frr> tz, 
^«t*a„ %<Dzi.-—?tsm&£^ 

iMttm^XOM, XntZlzy- 

^5^^^:^P*(z^i^ l£r>£M.tz\t? 
5 - i: *S|6*HZ'jZ^c^* 

«* § #ic bimfrfa ^>£i^m 

Wifrh, 'jm&HzMfrtiXZtib 
a>tu *LT % tzfrh, *f)\<<r> 

wmzb-xiWfa^Xs imuz 

ZXfc>fr^-h*"itzi)Ltz Z<7) 

tzMfflt> AH^co^gi: L x *A 

m£ (J5:-fb?r*#o fciM*T**%* 

tzeb-V-)W)$jitti:A,X^ J )<ni& 

ibbn^A^fco &* y t^^^-r 
rt N itA^fe^mt*n*.^ofc 

X' b Z (7M%5mfr b ft^^ 

£■ < (r>m*fox-x\\L£ ^^-cl^l^ fe 
■W«WW= fe3t-fb&%* i: t*1co 
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£*.&$< bWi 



$xt mzmmzMLx, t 
art), -nti^^tfUx &&« 

tzt^tiAmti&Zkt^tzh. 
f iLtz-o X Affl(D& n bmtfgk 
Ztltz&teo tz^tzl^-oX, 

ftfM.ttl\ 'J?%WJb—Jl'<nmfr 

^bitxm<s m&Kmsit^ 

'J /Co 



fc fe (7)11 fcti* l*f Wt£ I \> APbT 

9*^ WI^El£<7)£^tTf$»f 
■H^felRli;< bl^tf&SfcLT, 
/\i(IliA|BJ<7)5007j#<7> 1 <7)R£ 

Xb, —-7jX\ m&Z\,\$0M 

fc cfc ^ 300^^1(7)^4^(7) 1 *> 1 00 
^LTl^4? ^(T)—W£A,tz 

±tko tztt^t, fa&mzwi* 

tttztij&ftT&z t ¥xg %>Mth 

it-? 

t<D^x ammtzo *>& u m& 



ANft$Btt> J: 3 & S A,*C, fc A,<7) 

i:(iAUffJ:fco Xb, Miziki 
-3"Cl^5/\x(J x T(7)^^bt"< 

m^lSx.btli)o CftttCf-3< 

'Jf£ < h^m&lzX£Z>A,X\ 
^■tb£i£LXfrX-tbj:itz\\ 
fcvS?A^\x« N 1BTA^S6^T# 

izffifr&itxx^x. CTtf^rfr 

ZA%Z\£tfMMLW%*£A,Xs 

AHf]T£A,TK^A,£f ftl^'l 
AHo 
£-A,-tm>-f I M | n L T L 



i » a «*rM«-f %zt [%*■£ 

Zy£. s ?A,teZ.£$:mzLX, ¥ 

mzMt z> mmm &^frtzim 

^\X(7)WiAFB^<7)500^^<7) 1 fciffi 
i£T\ AHt>t y £*ACWTJ: 

if &<nt m b$s$t<r>9&3X\ 5007? 
^ -5 file b h % o fc * * t£/Jt6* 

$)?>U-^0(7)^Tl) ; |-*5^"r^ #s 

mmxifin'mmtimb'gisbx, i 

^oTi^-Sir-f-So — "Us '\x-tt 
*#$(7)Jt* x bLTs 20(7)pTtH4 




%t-<=W»5 ^la^EBj kr^ 
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tvctcft.**(t*ftt^N *ft(i 
« £TT £ X*<7)f$|H)AS@*iix-# 

<7)iz fcfti >B#$ £ XaMrd&K £ T 
So fcffrfe, ttfc%11Ml**tt£ 

&£1LT, PBliii^^j:L^T»i$- 
£ 5til*&£SSi<*-ttX # fcfrlt 

£?o 

GJtoT#'<— LX> SiJ(7);u— ;u 

tzr?t?Tfc*§£i*7;btto 
&*?#>££##{£. 7X^JS££ 

JfoLfc r H<7)i£j ^fcoTi^. 
AmWt<»Z<r&.£ l fob. AfSIW 
Belt* ^*i6T4^^4^U 

&#LT^<JlX\ MH(757'7 P 
MJ5X-±£to*3LZt.s AfeWJ 

iztfmtfr Lym&i rets; 



3X, ^-T-^^BuiilZtzioT, 

frhtzxbX AH £ flJ<7)£ g &<7) Jt 

£-?X<7)£J:b!i£LX<frS£, ^Z 



^l^l^^T < &&£££. 
£ <fc:ARfc:c<5fiV«ISI» 

AW£A,X<r>te. fflmizbAft 

izmwx\ mtoMxhutzm 

ifcx\x, ttfejWW8LT«>61IW 

fi\ U£'D<ni'*»l'i:LXV£iL 
LX^SA,fc*ifao 
c <7^IAa<7> =f§^W<7)ffi 5^is 

1 969^C$g^$ flfc* #7 i?** 

B*Xb*(nmi<7M'%£ LX S 

g^Acioxm^ftx^s, 

7-f7°Pyi7 hotl^ffl^ 

S TM £i^-?GDii s ^>/n°>v 
—oyk<r&ay% l ffi£A,tzttZ, m 

wm»kwtfx s mf-kf^tzi 

%oM<r>ut Vtfz<r>T4+M± 




1 ~ 9 S X(7)»£f|iJLX# S 

cftliAfflfctfknlMaX'li, ■£# 

xcDA^frhb-otzo zmmu 

r<m0&7L ^-HfT-n 7 =i V E fcfc 
;£liaHlt#LXuSA,i;*>^A 
£»k>Ti.^>AAVS£#£fltIE 

g*. £ft c x t » s ^ ^ n J: n u m 
iSi^r^o o*v, ^x.^p-5 

t^x\ ^^Ti^^ito -nti 
znxwm<w^<ntztft\ wm 

ftfzSs K 4£l^ofc*»W5 

tirhy AcO'L-n^l^T-ui)^(t 
K*j5ti\, ^Lxctiti, 3iii 
«t l J fe A# t*£ v.^-5 i -5 4\fJ(7)« 

— (7)^Sufc, 3>tfjL — ^— T*^" 

^M < Z £ X\ ^>J \°> v-C JA 
W*a*^F5^T^T % A (H 
Tl^^AT-^7J^^oT#fc 

bti/-r ¥L"tc:<7>=A0) c t , *C\ 
fe o ^ fc Ci^ 3 < !)W?8 /cc7)^ 
74*£ktL&too ti^oM^C 



7-(tz*>iZ=n$:f£i-£-&tz-% 
iMt, tztpL IS ff x )> 3*&1t 

tf t-^- -y 'V 7t?< — ^fttfci 5 L s Hit 

oTi^i: 7"1f-M£ ^ L X 

x\ 7* -nig* s-Hii -5^ c 

ot*-^*-F-*JlittT, ^li 

*****&*< #-Hrff* 3 £T 

S - n U *3b*£ir*£frJEmtft> 

*Si<^«C-3XLS-5o Xfc, fcL 

S<7)iz^|jt L fe -o X C ^ fd ;-o ^z b, 
^(ii 'J¥<liS7 £T S<7MiII 
C*^d:oXi^SA/zitao fc*J& x b 
fc LZ + ^i^+X^SLX 

■^LXVU(i> £fl*7)g«ii 
o^ s ^^c^tzffiWfiDcitxb 
ft^ < x, fe^tr < (iif L < >£ 
#Bi|-AXi!)?SL%^^c7)T\ IS^ 

mii^^^^itTj^ b ii*f<* nx l 
it^fcu^Afzi tec ^^^ 'J li 

-^ >/ \°> v—L#g7J *««* -3 fc 

bL<x, 4X1iBttf>*>*-- fe 

>^— tzjfJbtixi^Xx l^nco 

!J— ^*— C^-sXt^S^if^dfc'o 

fcUX#4^ofc9i:i^-5c:^^ 

Doii-fUN^i^ hoxnuticn 

U «> % mMtzftS(ilI*^ *i *ft A 
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MSXA-fflftOI 



MSX0A-KC 

U 1 %* »j <7)ss* t ti u s -t 

t\ son. ^lts^%-5^ 

*.^C^A,<75^t-C*K MSX*T<b(f 

rfr<7>«8|iiz ^M" LTLJofcA 

fAli, *B3&b«b1*MSX<7V\— K 
&% < ftotl **** Lfcjft IE 

tf o 

*A<7)tt£\ -fllzA-^fzfero 
(zli^z^z^bUfSt&z^ 

£•&*,„ ?A#MSXlZZ7c;b&<7)tZ 

MSXi©BfcO 

*HS0(7)MSXA<^? tlTA^f 
-C£105*£<S&*>*Lfco UoCJ s 
S<©C^* v <bfAt*, MSXCjKcfr 



><7>CPUli8 t'-y h:£MT\&<7) 
PC-9801 fc I BM - PC fc Hi fc tf *» U 
T\ 4-££##><v-y*>h-yv 

ffiglfcifcfclzSteTiwfciMSft 

j&*7 p >y tT— r'-f ;t?ft*tt&SA 

fc Z'<mhHXi^tzt 1 ttft&T 
Ltz 

II(D/\ o v3>i:fx.[l pc- 

8801^MZ80, FM8$>/c U tffia%$l 
frVT^tzmXXbhV t Lfco 

fc v v >{£fr tj T\ S&te £ v* -5 

fc<7)CJ£ ofc < ^/tSttTufci* 
I85ET?; ifti b t \°— v T^uffl 1 1 * 
•5 cttfflfitSWtztiBfflliT\ -35(7) 
•?-T<DAtz*><ntztbt?mzfth 

tltzX 1 ^7-»(i>lJ T*L/z 

1 1 u-> tz*T'Msxmm%y$fe 

t'3.-Ltz<nT'To 

Msxcnmm^mt. wr*)/* 

tfftT ivfc - 1 *%*X\. < f "To 

JjW:4^/:Vy>U v #>£S^ 

— 9—tzitztoT'To Z(7)v-> 

#* U v?^-;K7)Z80A (3 . 58MHzT- 
ISftD T\ VDPI2TI*±(7)TMS9918 
A, PSG(iGlt±<7)AY-3-891(X t L 
T *- tf- K * * -V ># ^(2 -f > 
T)\tttt 'J S^U7)8255AtB^q H B 

£ 1 x -5 £.•&(£> msx 1 (mn<n msx 

**V7 HiV<^DV7 h BASIC 




A<ROM<7)JirC&it£ftTU3: L 
«, ROM^J- h U 7v|fflV^7 

fcJ:-)T-r o 

* $ U JfiC^-o fc cfc "5 T'To MSXT' 
(i^/c U h&<7)*— h 'J -y v* p >y 

% t it** fj m%tz-o tzti tzim 

LTUSto 

>*<i'vy\l!{(7)-7'p h^<7°L^ 

# < » i fcRi^0RSA^o T 1 ^ 
*^)fcC2:fe^Us NEC$H(7)PC- 
8801HVDP+PSG#— F (#^uwi) 
MHfT fV n' -y ^fSll*ff<C o T 
WzJ^T-To <-5't x Atf» Z<7) 
*— K KMSft S. 7. tfM^fr U v * 
^T T^iB^T-15 IE L T l^Wfr 
*MJzZ£bftz.T^£To 

PSXlC^i 

— A "7 -> ><7)^i^±.lZ#^ "b *l 

«ci:$nfc(7)fcx (5(Sr!^^iz^ 

Lti&itA,o HfiSl ip»tf»a— if 
— {JROM^j— h 'J yiWf—h& 

a^t\ ^flna«Hitw^(£ 

t> tev h'r— ~/U a- ^- A^ISt 

tz-3tz(7)T'? z<nym& MSX 



-DOS^^^?n,^{ffi^7^Ht3 . 5 
•f >-^7 p -y tf— 5**f 7 ^ a- -y 

h> 7P7 tf— |*)lcSJ-7->>C0M 
±ftZ=t^T#^(Z^bLTU#S 
L/r 

4- 7°p 7=j L.tmft&mjt 1 * ^ 

■5 CS 'J s ROivHb L fcSat£#o 

/;7-7'PV7hfcU<0^|^ 
tl> ^LTOlx(Z(J N ^-77^7 

? h^73 «r *l(z5if t L ycttt*^, 
MSX 2 ^^S? ft/iCDT'To 
^^•^'7 7^ >(7)7J^ 

■>^TA5-iiLiLf;o :ti(i 

(Z7°P ^7A^f-^ fe-te— 7". 
p— KL* % T*# 4l^fe<7) T\ *iz 
-y h-5 1 — TV 3— 5^ ^**WC 
**Ktt^*)«>TL-fc, ii^<7)7P 

7t-f^^^|ft|ft {jj> 

^(^(zib^r^^, «mwci:-r 

fe»§i4fcc7)T*To 

X, BASIC fertMLT, 7 P -y t°— 

'7-— A(7)^-C7)^Bg^iil ^*S A 

AT*(i^(7)-r^^-p v->>^ < 7>^ 
tiT l ^ tzOXtim. bft^ZZX* 
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L -J: 1 
*>t£frlZ s MSX<7>CPU(i-T >*r)V 

tz 7 T 5 =1 >©CPUt2, ^ h P — =? 
©6800©Sa51|££ bmttteQZ 

zmmtztfx\ mm>^xh 

* L tzt)\ -^X'htm.^- -v Z?K*g_ 
t> r> fziz\1X\ Z. ftlZifil itlttfr 

*> J: -o t tUt "C# hs 80386 vs 
68030, 4-^:^80486 vs 68040, 
CISC vs RISC£l^fc£ Z\hXL 
i"5 T 7 — ^T^^*— ©j§l^ 
Itf* £>©£<£# ¥H© J: o ^Ai 

A.&CPlKZ-tJ-ct, tX47-+f^ 

tz-frj:, 3#ttttlifcl*77 h&* 






^roBt^T-ti^T. h tz^tzltt 
<nm$L h „ H$fB|a<&T fcTWC L 
i-7t>©TT MSX(J$fllteA<fg 

5-ffiiLTU^Lfco MSXA*<b 
MSX2+ £ T'te, CPIK2 8 L'-y h © 

© TT £\ MSX tu rbo R (WT ? — 
tfR£B§)l?(S,ouizi6t:'-y h© 
RSOO^ffl^ft-SJ^lz^J, A 

Lfc 

MSX 1 *^MSX2+*T1s&btlT 
ItfcZSOArf* **JJ(zg*§Lfc(7)*< 
1976^T\ ^«b15%JiUifciiii© 
C £ T* L fe HIS, C ©CPUf J^T* 
£>Jii7iLSI £ HiC 7 >^-y y-f b£ 
tlf=*K*>*>5A*#GPUi:tTfe 
1E8& Lxm^htiMrtx^tto 

mmm<7>mfr&&.m&iz& < ^ 

frfttl ^S>^©TMPZ84C01 5£fr 



B aB7)HD64180Z# ^j,m#c ^e 

Jt^$f#\ Z80A^©&(7)£\Z80 
A<7)gfe&JKa<0gjft$ ftfdli72LSI£ 
#A,/^CPU#<7)T1"o $f CPU©R800 
2* C©5fcZ80A©<J: o tZ& < fi&b 

*\ RSOOTT «bZ80A©&&JKfc© 

MSX1^"b MSX21Z, J tzMSXfr 
hMSX2+lZ$m$tltzt£lZl£? 
<r)3ffl&7=7 7 -f -y ^WIAWbd 
ftT#£L/c &-tf*\ ?— *r 
<M9&t?mt? : 7 7 Y -y ^«H6« 

»f^ l tzcntzt, wzmswmz 

HtftHtZ T 7 >y 7° L T # X I ^ t a 
X*y — liRAM(Zi± J ROM(Zi+ 

it^ati, mxttb[z-mmz± 

"gm-it(Dm$:^A,Xl^T MSX 
1 tfmt&i 8 smi& 1 6+ □ fc'-y 



h ©RAM*rJ: -9 ^ < 64+ □ t'-y h 
lC^T"rS^TL/c** 4°£> 4 
^ **t'-y h<7>RAM*^fc U futzf^ 
^tlTl^To ^*zLT64fSlZ 

ic 1 m(D\w^t co h <niz s (5 ^ ^ t' 

^oTL^JtA,, ^C7)4^**t* 
-y h RAMfc, ~ Z^%T"16^ *'f" 
•y Mz^fLTl^/c£LTt>, 
>* L T^WrCtttt iv - t K<7)X* 

to 

mttttiz, wm&m>*$tf 

<bMSX(*#i::SHbLT#TuS 

i7, V7^i7«rt§i:lL 

CZ^T'ilfcgWlZ, -MLTI*]^ 
4^3*% ? tlX I ^ -S v :> >(i MSX 

r*J> MSX(S§glrLi^— tf-^-ai 



□cnfcitttJt^rfcurft ^biiq 



= MSXlz(S,^-^-xbe'ijg 

= ^"r5Z3^^^-W^-lz4i|SS© 

= mzmmtmx\.\^to mmzn 

= KU'yi/7,n'yK, ^t'yh^> 

= va^7f^ ^^^\-S©iE2C 

= SB, ;RfflAaj73-f>^-Z7x- 

= X^:L^5@n : Siur■ro zj^^7^ 

= -©JBWISAMP9 tf>tDfB"n 

= L^^To ^-A^i'^-TSi^lz, 

= ^JEfflJ0Dlz^L\fc»(z, Z©cfe5 

= iziwrfn'CL^foiifigicittMsx 

= WliVZ7KCBIOS]^v3'i'X^ 

= -r-y^Wyl-lzvOT., )\Y-)\,t5.i?. 

^ 'SUsyr^Scfcdiz^orL^-ro 



7S33, yV-KWizB, 4tf>yh 
©A7D/-K-K, 1 e-yh©tti7D7K 
-S, Etf^S©AJli*7K-S, 
^ Ura;JS^-r >( +5ViGN D] 

©H^ct^rus©^ V7 
s©i^u/cu-cB«iig^g-^ 

MSXrB, 3©^a-T7,^< -y^7 

tK- s ft&tz-Dmmtinz i\£? 

-7KRwi^©«iar-B-y-7K- k* 
nzi^ttho nwvgm&tt 
<nmtti\s.. BAsic^brt 
ffimizy^b7.$i^;fj^r*s©r 
^7b^A N fi^ U Z I \in(DVft\ 

yjy^-TK-Ktt, IE5SCICB 

K'nru^-r ^©s©iao, 
¥ycoxxziz??tfmmtmz 

L^T o PC-9801^U-Xt(5|i; 



fcH7D/-K-hc!: I tf>yh-©A73/K- 
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msxa; 







ztuv^yvox. 



, 5' \° V =i >^>r— A^C7)^ 
T-MSX£iiA,f;fIIfi£LT, 7°P 

£LT, 7°n^7i>^i^f 
MSXT7°p ^ $ >7>^Li; 

r MSX^-Log/-c-(? Jo BASIC 
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r MSX^- L -?mtz-{$'M r MSX 
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7AU^ hCD?^ 'J 7 h 7 S U 
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/z * tl-if tUE L I » »J 7s h frTC 



AUTO 

BSAVE 

CINT 

CONT 

CVI 

DELETE 

EOF 

ERR 

FILES 

GET 

LFILES 

LIST 

LOC 

MAXFILES 

MKDS $ 

NAME 

ON STOP GOSUB 

PLAY 

PRINT USING 

RENUM 

SAVE 

SET ADJUST 

SET DATE 

SET SCREEN 

SET TITLE 

SPC 

TRON 



BASE 

CALL 

CLEAR 

CSNG 

CVS 

DRAW 

ERASE 

ERROR 

FPOS 

INPUT)} 

LLIST 

LOF 

MERGE 

NEW 

OPEN 

PRINTS 

PUT KANJI 

RESUME 

SET BEEP 
SET PASSWORD 
SET TIME 
SET VIDEO 
TAB 



TROFF 



BLOAD 

CDBL 

CLOSE 

CVD 

DEFFN 

DSKF 

ERL 

FIELD 

FRE 

KEYLIST 

LOAD 
LPRINT USING 

MKS$ 

ON ERROR GOTO 

PRINTfl USING 
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WIDTH 
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10 _TURBO ON 
20 A%=0 

30 LD HL, 100 
40 '#1 &H21, 100, 
50 LD (A*) , HL 
60 *#I &.H22, A* 
70 PRINT AH 
80 END 



EQV 



IMP 
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TURBO ON 


20 


SCREEN 5: COLOR 1 5, 0, : 


CLS 


30 


PRESET (0, 0) 


:PRINT #1, ' 


#C+" 


40 


TURBO ON 






50 


*#C+ 






60 


LINE(0, 0) - (255, 255) 
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IF INKEY$=" 


" THEN 70 
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TURBO OFF 
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CLS 
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PRESET (0, 0) : PRINT #1, 


"#c-" 


1 10 


TURBO ON 
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*#C- 
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LINE (0, 0)- 


(255, 255) 
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IF INKEY$= 


' THEN 14{Z 




150 


END 
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